Skip to content

Commit

Permalink
Fix for dialogflow
Browse files Browse the repository at this point in the history
  • Loading branch information
YutoUchimi committed Dec 30, 2019
1 parent 1e5ddce commit e4c039b
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions elevator_move_base_pr2/sample/fetch-sandwich.l
Original file line number Diff line number Diff line change
Expand Up @@ -348,11 +348,11 @@

(defun main ()
(ros::roseus "fetch_sandwich")
(let ((sandwich-en (string-downcase (or (get-arg :sandwich) "blt")))
(let ((sandwich-en (string-downcase (or (get-arg :object) "BLT sand")))
(sandwich-jp nil)
(sandwiches '(("blt" "BLTサンド")
("roasted_chicken" "ローストチキンサンド")
("tuna" "ツナサンド"))))
(sandwiches '(("BLT sand" "BLTサンド")
("roast chicken sand" "ローストチキンサンド")
("tuna sand" "ツナサンド"))))
(dolist (s sandwiches)
(when (string= sandwich-en (elt s 0))
(setq sandwich-jp (elt s 1))))
Expand Down

0 comments on commit e4c039b

Please sign in to comment.