changes
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")
|
|
Loading…
Reference in New Issue