suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unbreak "record.ms"

Browse Source 
Support nested `include`s.

original commit: 2ace5779126179a0624010d338c3e7b3a91896f4
This commit is contained in:
Matthew Flatt 2020-07-25 18:30:06 -06:00
parent 38cf0fba97
commit 3d5d6361c0
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mats/record.ms
View File

@ -728,10 +728,14 @@
(mat foreign-data (mat foreign-data
(begin (begin
(module ($fd-unaligned-integers $fd-unaligned-floats) (module ($fd-unaligned-integers $fd-unaligned-floats)
(import (rename (only (chezscheme) include) [include orig-include]))
(define-syntax define-constant (define-syntax define-constant
(syntax-rules (machine-type) (syntax-rules (machine-type)
[(_ machine-type y) (begin)] [(_ machine-type y) (begin)]
[(_ x y) (define x y)])) [(_ x y) (define x y)]))
(define-syntax define-constant-default
(syntax-rules (machine-type)
[(_ x y) (begin)]))
(define-syntax features (define-syntax features
(syntax-rules () (syntax-rules ()
[(_ x ...) (begin)])) [(_ x ...) (begin)]))
@ -751,7 +755,12 @@
... ...
[else (syntax-error const [else (syntax-error const
(format "unhandled value ~s" (constant const)))])])) (format "unhandled value ~s" (constant const)))])]))
(include "../s/machine.def") (define-syntax include
(lambda (stx)
(syntax-case stx ()
[(k path)
#`(#,(datum->syntax #'k 'orig-include) #,(format "../s/~a" (datum path)))])))
(include "machine.def")
; all this work for two constants: ; all this work for two constants:
(define $fd-unaligned-integers (constant unaligned-integers)) (define $fd-unaligned-integers (constant unaligned-integers))
(define $fd-unaligned-floats (constant unaligned-floats))) (define $fd-unaligned-floats (constant unaligned-floats)))