In the XS:Lisp implementation, constants appear to be case sensitive

BrickBot · Jul 29, 2024 · 5f9ba6b · 5f9ba6b
1 parent 821e3b9
commit 5f9ba6b
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 16 deletions.
diff --git a/demo/xs-lisp/range.lsp b/demo/xs-lisp/range.lsp
@@ -58,16 +58,16 @@
 ;; this code does not work any more (03/12/14)
 
 (define (bugle)
-  (play '((:Do4 . 2) (:Do4 . 1) (:Do4 . 2) (:Do4 . 1) (:Do4 . 2) (:Do4 . 1)
-          (:So4 . 2) (:Mi4 . 1) (:So4 . 2) (:Mi4 . 1) (:So4 . 2) (:Mi4 . 1)
-          (:Do4 . 2) (:Do4 . 1) (:Do4 . 2) (:Do4 . 1) (:Do4 . 2) (:Do4 . 1)
-          (:So4 . 2) (:Mi4 . 1) (:So4 . 2) (:Mi4 . 1) (:So4 . 2) (:Mi4 . 1)
-          (:Do4 . 6)))
+  (play '((:DO4 . 2) (:DO4 . 1) (:DO4 . 2) (:DO4 . 1) (:DO4 . 2) (:DO4 . 1)
+          (:SO4 . 2) (:MI4 . 1) (:SO4 . 2) (:MI4 . 1) (:SO4 . 2) (:MI4 . 1)
+          (:DO4 . 2) (:DO4 . 1) (:DO4 . 2) (:DO4 . 1) (:DO4 . 2) (:DO4 . 1)
+          (:SO4 . 2) (:MI4 . 1) (:SO4 . 2) (:MI4 . 1) (:SO4 . 2) (:MI4 . 1)
+          (:DO4 . 6)))
   )
 (define (bugle1)
-  (play '((:So3 . 1) (:So3 . 1) (:Do4 . 2) (:Do4 . 2) (:Do4 . 2)
-          (:So3 . 1) (:Do4 . 1) (:Mi4 . 2) (:Mi4 . 2) (:Mi4 . 2)
-          (:Do4 . 1) (:Mi4 . 1) (:So4 . 2) (:Mi4 . 1) (:Do4 . 1)
-          (:So4 . 2) (:Mi4 . 1) (:Do4 . 1)
-          (:So3 . 2) (:So3 . 1) (:So3 . 1) (:So3 . 2)))
+  (play '((:SO3 . 1) (:SO3 . 1) (:DO4 . 2) (:DO4 . 2) (:DO4 . 2)
+          (:SO3 . 1) (:DO4 . 1) (:MI4 . 2) (:MI4 . 2) (:MI4 . 2)
+          (:DO4 . 1) (:MI4 . 1) (:SO4 . 2) (:MI4 . 1) (:DO4 . 1)
+          (:SO4 . 2) (:MI4 . 1) (:DO4 . 1)
+          (:SO3 . 2) (:SO3 . 1) (:SO3 . 1) (:SO3 . 2)))
   )
diff --git a/demo/xs-lisp/rover-watcher.lsp b/demo/xs-lisp/rover-watcher.lsp
@@ -19,9 +19,9 @@
 (define (forward)
   (motor :a (motor :c :forward))
   (motor :b :off)
-  (play '((:Re4 . 2) (:Do4 . 1) (:Re4 . 1) (:Fa4 . 1) (:Re4 . 1)
-          (:Re4 . 2) (:Fa4 . 2) (:So4 . 1) (:Do5 . 1) (:La4 . 2)
-          (:Re4 . 2)))
+  (play '((:RE4 . 2) (:DO4 . 1) (:RE4 . 1) (:FA4 . 1) (:RE4 . 1)
+          (:RE4 . 2) (:FA4 . 2) (:SO4 . 1) (:DO5 . 1) (:LA4 . 2)
+          (:RE4 . 2)))
 )
 
 (begin

diff --git a/demo/xs-lisp/rover.lsp b/demo/xs-lisp/rover.lsp
@@ -24,9 +24,9 @@
   (let loop ()
     (motor :a (motor :c :forward))
     (motor :b :off)
-    (play '((:Re4 . 2) (:Do4 . 1) (:Re4 . 1) (:Fa4 . 1) (:Re4 . 1)
-            (:Re4 . 2) (:Fa4 . 2) (:So4 . 1) (:Do5 . 1) (:La4 . 2)
-            (:Re4 . 2)))
+    (play '((:RE4 . 2) (:DO4 . 1) (:RE4 . 1) (:FA4 . 1) (:RE4 . 1)
+            (:RE4 . 2) (:FA4 . 2) (:SO4 . 1) (:DO5 . 1) (:LA4 . 2)
+            (:RE4 . 2)))
     (wait-until (or (touched? 2) (pressed?)))
     (if (pressed?)
         (motor :a (motor :c :off))