From ddd430ff757bd4c118890326a2a8d8162e8d177d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 12 Jul 2018 11:01:07 -0600 Subject: [PATCH] corrections --- beautiful-racket-demo/atomic-taco-demo/main.rkt | 12 +++++++----- beautiful-racket-demo/atomic-taco-demo/test.rkt | 2 +- beautiful-racket-demo/quantum-taco-demo/test.rkt | 2 +- beautiful-racket-demo/taco-compiler-demo/test.rkt | 2 +- beautiful-racket-demo/taco-decompiler-demo/test.rkt | 2 +- beautiful-racket-demo/taco-victory-demo/test.rkt | 2 +- beautiful-racket-demo/tacogram-demo/test.rkt | 2 +- beautiful-racket-demo/tacopocalypse-demo/test.rkt | 2 +- beautiful-racket-demo/tacopocalypse-prep/test.rkt | 2 +- 9 files changed, 15 insertions(+), 13 deletions(-) diff --git a/beautiful-racket-demo/atomic-taco-demo/main.rkt b/beautiful-racket-demo/atomic-taco-demo/main.rkt index 8269866..010626d 100644 --- a/beautiful-racket-demo/atomic-taco-demo/main.rkt +++ b/beautiful-racket-demo/atomic-taco-demo/main.rkt @@ -1,14 +1,16 @@ #lang racket -(provide #%datum #%top-interaction #%module-begin - (rename-out [#%my-app #%app])) +(provide #%top-interaction #%module-begin + (rename-out [my-datum #%datum] + [my-datum #%top] + [my-app #%app])) -(define-syntax (#%datum stx) +(define-syntax (my-datum stx) (syntax-case stx () [(_ . THING) #''taco])) -(define-syntax (#%my-app stx) +(define-syntax (my-app stx) (syntax-case stx () - [(_ FUNC . ARGS) #'(list (#%datum) . ARGS)])) + [(_ FUNC . ARGS) #'(list (my-datum) . ARGS)])) (module reader syntax/module-reader atomic-taco-demo) \ No newline at end of file diff --git a/beautiful-racket-demo/atomic-taco-demo/test.rkt b/beautiful-racket-demo/atomic-taco-demo/test.rkt index 329eeec..4eee16f 100644 --- a/beautiful-racket-demo/atomic-taco-demo/test.rkt +++ b/beautiful-racket-demo/atomic-taco-demo/test.rkt @@ -1,4 +1,4 @@ #lang atomic-taco-demo "hello world" -(+ 1 (* 2 (- 3))) \ No newline at end of file +(+ 1 (* 2 (- x))) \ No newline at end of file diff --git a/beautiful-racket-demo/quantum-taco-demo/test.rkt b/beautiful-racket-demo/quantum-taco-demo/test.rkt index 1d8db75..4c183b2 100644 --- a/beautiful-racket-demo/quantum-taco-demo/test.rkt +++ b/beautiful-racket-demo/quantum-taco-demo/test.rkt @@ -1,4 +1,4 @@ #lang quantum-taco-demo "hello world" -(+ 1 (* 2 (- 3))) \ No newline at end of file +(+ 1 (* 2 (- x))) \ No newline at end of file diff --git a/beautiful-racket-demo/taco-compiler-demo/test.rkt b/beautiful-racket-demo/taco-compiler-demo/test.rkt index 56d6bb6..e0e75f6 100644 --- a/beautiful-racket-demo/taco-compiler-demo/test.rkt +++ b/beautiful-racket-demo/taco-compiler-demo/test.rkt @@ -1,4 +1,4 @@ #lang taco-compiler-demo "hello world" -(+ 1 (* 2 (- 3))) \ No newline at end of file +(+ 1 (* 2 (- x))) \ No newline at end of file diff --git a/beautiful-racket-demo/taco-decompiler-demo/test.rkt b/beautiful-racket-demo/taco-decompiler-demo/test.rkt index 82961e3..16e5f0a 100644 --- a/beautiful-racket-demo/taco-decompiler-demo/test.rkt +++ b/beautiful-racket-demo/taco-decompiler-demo/test.rkt @@ -28,7 +28,7 @@ (() () () taco () taco ()) (taco () taco taco () taco ()) (() () () () () taco ()) -(taco taco () () taco taco ()) +(() () () taco taco taco taco) (taco () () taco () taco ()) (taco () () taco () taco ()) (taco () () taco () taco ()) \ No newline at end of file diff --git a/beautiful-racket-demo/taco-victory-demo/test.rkt b/beautiful-racket-demo/taco-victory-demo/test.rkt index a4d0443..2a8addb 100644 --- a/beautiful-racket-demo/taco-victory-demo/test.rkt +++ b/beautiful-racket-demo/taco-victory-demo/test.rkt @@ -1,2 +1,2 @@ #lang taco-victory-demo -##$%#$%#$#$#$$##$%#$%#$#$#$$##$%#$#$#$%#$$##$#$#$%#$%%$#%#$%#$#$%%$##$#$%%#$%%$##$#$%%#$%%$#%%%%#$%%$##$#$#$#$#$%#$$#%%%#$%%%$#%%%%#$%%$##$%#$#$%%%$##$#$%%#$%%$##$#$%#$#$%%$##$%#$#$#$%#$$##$%#$%#$#$#$$##$#$#$%#$%#$$#%%#$%#$%#$$##$#$#$#$#$%#$$#%#$#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$##$%#$%#$%#$$##$#$#$#$#$%#$$##$%#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$#%#$%%#$%#$$##$#$#$#$#$%#$$#%%#$#$%%#$$#%#$#$%#$%#$$#%#$#$%#$%#$$#%#$#$%#$%#$$ \ No newline at end of file +##$%#$%#$#$#$$##$%#$%#$#$#$$##$%#$#$#$%#$$##$#$#$%#$%%$#%#$%#$#$%%$##$#$%%#$%%$##$#$%%#$%%$#%%%%#$%%$##$#$#$#$#$%#$$#%%%#$%%%$#%%%%#$%%$##$%#$#$%%%$##$#$%%#$%%$##$#$%#$#$%%$##$%#$#$#$%#$$##$%#$%#$#$#$$##$#$#$%#$%#$$#%%#$%#$%#$$##$#$#$#$#$%#$$#%#$#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$##$%#$%#$%#$$##$#$#$#$#$%#$$##$%#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$#%#$%%#$%#$$##$#$#$#$#$%#$$##$#$#$%%%%$#%#$#$%#$%#$$#%#$#$%#$%#$$#%#$#$%#$%#$$ \ No newline at end of file diff --git a/beautiful-racket-demo/tacogram-demo/test.rkt b/beautiful-racket-demo/tacogram-demo/test.rkt index 1aef0b4..767a574 100644 --- a/beautiful-racket-demo/tacogram-demo/test.rkt +++ b/beautiful-racket-demo/tacogram-demo/test.rkt @@ -1,2 +1,2 @@ #lang tacogram-demo -##$%#$%#$#$#$$##$%#$%#$#$#$$##$%#$#$#$%#$$##$#$#$%#$%%$#%#$%#$#$%%$##$#$%%#$%%$##$#$%%#$%%$#%%%%#$%%$##$#$#$#$#$%#$$#%%%#$%%%$#%%%%#$%%$##$%#$#$%%%$##$#$%%#$%%$##$#$%#$#$%%$##$%#$#$#$%#$$##$%#$%#$#$#$$##$#$#$%#$%#$$#%%#$%#$%#$$##$#$#$#$#$%#$$#%#$#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$##$%#$%#$%#$$##$#$#$#$#$%#$$##$%#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$#%#$%%#$%#$$##$#$#$#$#$%#$$#%%#$#$%%#$$#%#$#$%#$%#$$#%#$#$%#$%#$$#%#$#$%#$%#$$ \ No newline at end of file +##$%#$%#$#$#$$##$%#$%#$#$#$$##$%#$#$#$%#$$##$#$#$%#$%%$#%#$%#$#$%%$##$#$%%#$%%$##$#$%%#$%%$#%%%%#$%%$##$#$#$#$#$%#$$#%%%#$%%%$#%%%%#$%%$##$%#$#$%%%$##$#$%%#$%%$##$#$%#$#$%%$##$%#$#$#$%#$$##$%#$%#$#$#$$##$#$#$%#$%#$$#%%#$%#$%#$$##$#$#$#$#$%#$$#%#$#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$##$%#$%#$%#$$##$#$#$#$#$%#$$##$%#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$#%#$%%#$%#$$##$#$#$#$#$%#$$##$#$#$%%%%$#%#$#$%#$%#$$#%#$#$%#$%#$$#%#$#$%#$%#$$ \ No newline at end of file diff --git a/beautiful-racket-demo/tacopocalypse-demo/test.rkt b/beautiful-racket-demo/tacopocalypse-demo/test.rkt index 5125450..dd805b8 100644 --- a/beautiful-racket-demo/tacopocalypse-demo/test.rkt +++ b/beautiful-racket-demo/tacopocalypse-demo/test.rkt @@ -1,2 +1,2 @@ #lang tacopocalypse-demo -##$%#$%#$#$#$$##$%#$%#$#$#$$##$%#$#$#$%#$$##$#$#$%#$%%$#%#$%#$#$%%$##$#$%%#$%%$##$#$%%#$%%$#%%%%#$%%$##$#$#$#$#$%#$$#%%%#$%%%$#%%%%#$%%$##$%#$#$%%%$##$#$%%#$%%$##$#$%#$#$%%$##$%#$#$#$%#$$##$%#$%#$#$#$$##$#$#$%#$%#$$#%%#$%#$%#$$##$#$#$#$#$%#$$#%#$#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$##$%#$%#$%#$$##$#$#$#$#$%#$$##$%#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$#%#$%%#$%#$$##$#$#$#$#$%#$$#%%#$#$%%#$$#%#$#$%#$%#$$#%#$#$%#$%#$$#%#$#$%#$%#$$ \ No newline at end of file +##$%#$%#$#$#$$##$%#$%#$#$#$$##$%#$#$#$%#$$##$#$#$%#$%%$#%#$%#$#$%%$##$#$%%#$%%$##$#$%%#$%%$#%%%%#$%%$##$#$#$#$#$%#$$#%%%#$%%%$#%%%%#$%%$##$%#$#$%%%$##$#$%%#$%%$##$#$%#$#$%%$##$%#$#$#$%#$$##$%#$%#$#$#$$##$#$#$%#$%#$$#%%#$%#$%#$$##$#$#$#$#$%#$$#%#$#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$##$%#$%#$%#$$##$#$#$#$#$%#$$##$%#$#$%%#$$##$#$#$#$#$%#$$##$#$#$%#$%#$$#%#$%%#$%#$$##$#$#$#$#$%#$$##$#$#$%%%%$#%#$#$%#$%#$$#%#$#$%#$%#$$#%#$#$%#$%#$$ \ No newline at end of file diff --git a/beautiful-racket-demo/tacopocalypse-prep/test.rkt b/beautiful-racket-demo/tacopocalypse-prep/test.rkt index a413d84..3d0d871 100644 --- a/beautiful-racket-demo/tacopocalypse-prep/test.rkt +++ b/beautiful-racket-demo/tacopocalypse-prep/test.rkt @@ -28,7 +28,7 @@ (() () () taco () taco ()) (taco () taco taco () taco ()) (() () () () () taco ()) -(taco taco () () taco taco ()) +(() () () taco taco taco taco) (taco () () taco () taco ()) (taco () () taco () taco ()) (taco () () taco () taco ()) \ No newline at end of file