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

compress

Browse Source
This commit is contained in:
Matthew Butterick 2016-07-10 15:22:43 -07:00
parent 3f295b66fa
commit 90b8680bd7
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
beautiful-racket/br/demo/stacker3.rkt
View File

@ -1,10 +1,12 @@
#lang br/quicklang
(provide read-syntax (rename-out [stacker-module-begin #%module-begin]) + *)
(provide read-syntax
(rename-out [stacker-module-begin #%module-begin])
+ *)
(define (read-syntax path port)
(strip-context
#`(module stacker3-mod br/demo/stacker3
#,@(port->list read port))))
(datum->syntax #f
`(module stacker3-mod br/demo/stacker3
,@(port->list read port))))
(define-macro (stacker-module-begin ARG ...)
#'(#%module-begin
@ -16,7 +18,6 @@
(cons (x (car xs) (cadr xs)) (cddr xs))))
null (list ARG ...))))))
(module+ test
(require rackunit)
(check-equal? (with-output-to-string (λ () (dynamic-require "stacker3-test.rkt" #f))) "36"))