From 40786d7010d35cf8b7b43fe9af0fb8335b752a4e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 13 Mar 2017 23:11:39 -0700 Subject: [PATCH] edits --- beautiful-racket-demo/stacker-demo/stacker.rkt | 8 ++++---- beautiful-racket-demo/stackerizer-demo/stackerizer.rkt | 5 ++--- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/beautiful-racket-demo/stacker-demo/stacker.rkt b/beautiful-racket-demo/stacker-demo/stacker.rkt index 27fc543..f599279 100644 --- a/beautiful-racket-demo/stacker-demo/stacker.rkt +++ b/beautiful-racket-demo/stacker-demo/stacker.rkt @@ -17,12 +17,12 @@ (define stack empty) (define (pop-stack!) - (define item (first stack)) + (define arg (first stack)) (set! stack (rest stack)) - item) + arg) -(define (push-stack! item) - (set! stack (cons item stack))) +(define (push-stack! arg) + (set! stack (cons arg stack))) (define (handle [arg #f]) (cond diff --git a/beautiful-racket-demo/stackerizer-demo/stackerizer.rkt b/beautiful-racket-demo/stackerizer-demo/stackerizer.rkt index e06f134..a150a51 100644 --- a/beautiful-racket-demo/stackerizer-demo/stackerizer.rkt +++ b/beautiful-racket-demo/stackerizer-demo/stackerizer.rkt @@ -1,10 +1,9 @@ #lang br/quicklang (provide + *) -(define-macro (stackerizer-mb EXPR ...) +(define-macro (stackerizer-mb EXPR) #'(#%module-begin - (for-each displayln - (reverse (flatten (list EXPR ...)))))) + (for-each displayln (reverse (flatten EXPR))))) (provide (rename-out [stackerizer-mb #%module-begin])) (define-macro (define-ops OP ...)