touchup demos

beautiful-racket-demo/atomic-taco-demo/main.rkt

@@ -1,4 +1,4 @@
-#lang racket
+#lang br
 (provide #%top-interaction #%module-begin
          (rename-out [my-datum #%datum]
                      [my-datum #%top]

beautiful-racket-demo/conjunction-demo/main.rkt

@@ -20,7 +20,7 @@
     [(string? x) "whee"]
     [else 'kaboom]))
 
-(define-macro (dsl-module-begin EXPR ...)
+(define-macro (my-module-begin EXPR ...)
   #'(#%module-begin
      (convert-expr 'EXPR) ...))
-(provide (rename-out [dsl-module-begin #%module-begin]))
+(provide (rename-out [my-module-begin #%module-begin]))

beautiful-racket-demo/conjunction-demo/test.rkt

@@ -1,4 +1,4 @@
 #lang conjunction-demo
  
 "hello world"
-(+ 1 (* 2 (- 3)))
+(+ 1 (* 2 (- x)))

beautiful-racket-demo/expand-only-demo/main.rkt

@@ -7,7 +7,7 @@
     [(string? x) "whee"]
     [else 'kaboom]))
 
-(define-macro (dsl-module-begin EXPR ...)
+(define-macro (my-module-begin EXPR ...)
   #'(#%module-begin
      (convert-expr 'EXPR) ...))
-(provide (rename-out [dsl-module-begin #%module-begin]))
+(provide (rename-out [my-module-begin #%module-begin]))

beautiful-racket-demo/expand-only-demo/test.rkt

@@ -1,4 +1,4 @@
 #lang s-exp expand-only-demo
  
 "hello world"
-(+ 1 (* 2 (- 3)))
+(+ 1 (* 2 (- x)))

beautiful-racket-demo/injunction-demo/main.rkt

@@ -0,0 +1,18 @@
+#lang br
+(provide #%top-interaction #%module-begin
+         (rename-out [my-datum #%datum]
+                     [my-datum #%top]
+                     [my-app #%app]))
+
+(define-macro (my-datum . THING)
+  (define datum (syntax->datum #'THING))
+  (cond
+    [(string? datum) #'"whee"]
+    [(number? datum) #'42]
+    [else #''kaboom]))
+
+(define-macro (my-app FUNC . ARGS)
+  #'(list FUNC . ARGS))
+
+(module reader syntax/module-reader
+  injunction-demo)

beautiful-racket-demo/injunction-demo/test.rkt

@@ -0,0 +1,4 @@
+#lang injunction-demo
+
+"hello world"
+(+ 1 (* 2 (- x)))

beautiful-racket-demo/read-only-demo/test.rkt

@@ -1,4 +1,4 @@
 #lang read-only-demo
  
 "hello world"
-(+ 1 (* 2 (- 3)))
+(+ 1 (* 2 (- x)))