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