loop touchup

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

@@ -14,12 +14,11 @@
            EXPR ...)))))
 
 (define (convert-expr x)
-  (let loop ([x x])
+  (cond
-    (cond
+    [(list? x) (map convert-expr x)]
-      [(list? x) (map loop x)]
+    [(number? x) 42]
-      [(number? x) 42]
+    [(string? x) "whee"]
-      [(string? x) "whee"]
+    [else 'kaboom]))
-      [else 'kaboom])))
 
 (define-macro (dsl-module-begin EXPR ...)
   #'(#%module-begin

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

@@ -1,12 +1,11 @@
 #lang br
 
 (define (convert-expr x)
-  (let loop ([x x])
+  (cond
-    (cond
+    [(list? x) (map convert-expr x)]
-      [(list? x) (map loop x)]
+    [(number? x) 42]
-      [(number? x) 42]
+    [(string? x) "whee"]
-      [(string? x) "whee"]
+    [else 'kaboom]))
-      [else 'kaboom])))
 
 (define-macro (dsl-module-begin EXPR ...)
   #'(#%module-begin