correct build errors

master
Matthew Butterick 7 years ago
parent 7e74c93a79
commit 8d68af640e

@ -1 +1,3 @@
#lang reader "lang.rkt" #lang reader "lang.rkt"
root@ebhq-gridcenter# df -h
Filesystem Size Used Avail Use%

@ -0,0 +1,2 @@
#lang info
(define compile-omit-paths 'all)

@ -20,13 +20,17 @@
(syntax/loc (car datums) (module puzzle-lang THIS-FILE (syntax/loc (car datums) (module puzzle-lang THIS-FILE
. DATUMS))))) . DATUMS)))))
(define (blank? line) (regexp-match #px"^\\s*$" line))
(define-macro (my-mb . ARGS) (define-macro (my-mb . ARGS)
(with-pattern ([MOD-PATH (syntax-source caller-stx)]) (with-pattern ([MOD-PATH (syntax-source caller-stx)])
#'(#%module-begin #'(#%module-begin
(provide read-syntax) (provide read-syntax)
(define (read-syntax path port) (define (read-syntax path port)
(strip-context #`(module mod MOD-PATH (strip-context #`(module mod MOD-PATH
#,@(for/list ([line (in-lines port)]) #,@(for/list ([line (in-lines port)]
#:unless (blank? line))
(for/list ([datums (in-port read (open-input-string (string-replace line "," "")))]) (for/list ([datums (in-port read (open-input-string (string-replace line "," "")))])
datums))))) datums)))))
. ARGS))) . ARGS)))

@ -1,5 +1,4 @@
#lang reader "main.rkt" ★★ #lang reader "main.rkt" ★★
1212 1212
1221 1221
123425 123425

@ -1,6 +1,7 @@
#lang info #lang info
(define collection "aoc-racket") (define collection "aoc-racket")
(define scribblings '(("aoc-racket.scrbl" (multi-page)))) (define scribblings '(("aoc-racket.scrbl" (multi-page))))
(define deps '("base" "scribble-lib" ("sugar" #:version "0.3") "rackunit-lib" "math-lib" "beautiful-racket-lib")) (define deps '("graph"
"base" "scribble-lib" ("sugar" #:version "0.3") "rackunit-lib" "math-lib" "beautiful-racket-lib"))
(define test-omit-paths (list #rx"rkt$")) (define test-omit-paths (list #rx"rkt$"))
(define build-deps '("rackunit-lib" "racket-doc" "scribble-doc" "rackunit-doc" "at-exp-lib" "math-doc")) (define build-deps '("rackunit-lib" "racket-doc" "scribble-doc" "rackunit-doc" "at-exp-lib" "math-doc"))