Remove run body in almost every case

This commit is contained in:
David Botton 2022-03-01 00:48:04 -05:00
parent c59ae62c32
commit e5e3e07645
36 changed files with 199 additions and 121 deletions

View file

@ -52,8 +52,7 @@
(set-on-drop target2 (lambda (obj data)
(declare (ignore obj))
(print (getf data :drag-data))
(place-inside-bottom-of target2 object)))
(run body)))
(place-inside-bottom-of target2 object)))))
(defun start-tutorial ()
"Start tutorial."