pull/10/head
Matthew Butterick 8 years ago
parent aa43154777
commit 87009e367b

@ -1,7 +0,0 @@
#lang basic-demo
10 rem what?
20 print "hello"
30 rem goto 50
45 print "shite"
50 print "foobar"
60 goto 45

@ -1,8 +0,0 @@
#lang br
(provide (rename-out [my-app #%app]))
(define-macro (my-app ID . ARGS)
(report caller-stx)
(if (number? (syntax->datum #'ID))
(with-pattern ([NEW-ID (report* #'ID (prefix-id "@" #'ID))])
#'(NEW-ID . ARGS))
#'(ID . ARGS)))

@ -1,2 +0,0 @@
#lang br
(require "basic-test.rkt")

@ -8,4 +8,4 @@
here
)
(parse-tree (apply-tokenizer tokenize str))
(parse-tree (apply-tokenizer-maker make-tokenizer str))
Loading…
Cancel
Save