samplers

beautiful-racket-demo/basic-demo-3/expander.rkt

@@ -41,5 +41,6 @@
     (for/list
         ([(val idx)
           (in-indexed (current-command-line-arguments))])
-      (list (suffix-id #'arg idx #:context ctxt) val))))
+      (list (suffix-id #'arg idx #:context ctxt)
+            (or (string->number val) val)))))
 

beautiful-racket-demo/basic-demo-3/report-args.rkt

@@ -0,0 +1,6 @@
+#lang basic-demo-3
+10 print "arg0 is " ; arg0
+20 print "arg1 + arg1 is " ; arg1 + arg1
+30 print "arg2 is " ; arg2
+40 print "arg3 is " ; arg3
+50 print "arg4 is " ; arg4