You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#lang br
|
|
(require "struct.rkt")
|
|
(provide b-line)
|
|
|
|
(define-macro (b-line NUM STATEMENT ...)
|
|
(with-pattern ([LINE-NUM (prefix-id "line-" #'NUM
|
|
#:source #'NUM)])
|
|
(syntax/loc caller-stx
|
|
(define (LINE-NUM) (void) STATEMENT ...)))) |