alt

2017/aoc-lang.rkt

@@ -1,22 +1,32 @@
+#|
 #lang s-exp syntax/module-reader
 #:read read
 #:read-syntax read-syntax
 #:language `(submod ,aoc-lang expander) 
 (require racket/runtime-path)
 (define-runtime-path aoc-lang "aoc-lang.rkt")
+|#
 
-(module expander br/quicklang
-  (require "helper.rkt")
-  (provide (except-out (all-from-out br/quicklang "helper.rkt") #%module-begin)
-           (rename-out [#%mb #%module-begin]))
+#lang br/quicklang
+(require "helper.rkt")
+(provide (except-out (all-from-out br/quicklang "helper.rkt") read-syntax #%module-begin)
+         (rename-out [my-rs read-syntax] [my-mb #%module-begin]))
 
-  (define-macro (#%mb . ARGS)
-    (with-pattern ([MODULE-PATH (syntax-source caller-stx)])
-      #'(#%module-begin
-         (provide read-syntax)
-         (define (read-syntax path port)
-           (strip-context #`(module mod MODULE-PATH
-                              #,@(for/list ([line (in-lines port)])
-                                   (for/list ([datums (in-port read (open-input-string line))])
-                                     datums)))))
-         . ARGS))))
+(define (my-rs path port)
+  (define datums (for/list ([datum (in-port (curry read-syntax path) port)])
+                   datum))
+  (strip-context (with-pattern ([THIS-FILE (syntax-source #'here)]
+                                [DATUMS datums])
+                   (syntax/loc (car datums) (module puzzle-lang THIS-FILE
+                                              . DATUMS)))))
+
+(define-macro (my-mb . ARGS)
+  (with-pattern ([MOD-PATH (syntax-source caller-stx)])
+    #'(#%module-begin
+       (provide read-syntax)
+       (define (read-syntax path port)
+         (strip-context #`(module mod MOD-PATH
+                            #,@(for/list ([line (in-lines port)])
+                                 (for/list ([datums (in-port read (open-input-string line))])
+                                   datums)))))
+       . ARGS)))