suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tighten

Browse Source
This commit is contained in:
Matthew Butterick 2016-07-21 16:58:28 -07:00
parent 99ebc4f804
commit 32a7765ac3
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
beautiful-racket/br/demo/stacker.rkt
View File

@ -1,9 +1,9 @@
#lang br/quicklang
(define (read-syntax src-path in-port)
(define args (port->list read in-port))
(define (read-syntax path port)
(define args (port->lines port))
(define arg-datums (format-datums '(handle ~a) args))
(define module-datum `(module mod-name br/demo/stacker
(define module-datum `(module stacker-mod br/demo/stacker
,@arg-datums))
(datum->syntax #f module-datum))
(provide read-syntax)
@ -24,10 +24,10 @@
(define (push-stack! item)
(set! stack (cons item stack)))
(define (handle arg)
(define (handle [arg #f])
(cond
[(number? arg) (push-stack! arg)]
[else
[(procedure? arg)
(define op-result (arg (pop-stack!) (pop-stack!)))
(push-stack! op-result)]))