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

cleanup

Browse Source
This commit is contained in:
Jay McCarthy 2016-01-20 06:45:15 -05:00
parent 985b540ccc
commit 9b1b41f835
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
remix/class0.rkt
View File

@ -116,7 +116,7 @@
(define cls-int-impl-id (format-id #f "~a-~a" #'cls int)) (define cls-int-impl-id (format-id #f "~a-~a" #'cls int))
(match-define (list int-vtable-id cls-int-impl-def) (match-define (list int-vtable-id cls-int-impl-def)
(int-internal cls-int-impl-id #'cls-this)) (int-internal cls-int-impl-id #'cls-this))
(list int int-vtable-id cls-int-impl cls-int-impl-def))] (list int int-vtable-id cls-int-impl-id cls-int-impl-def))]
[cls-new-def (new-found? #'cls-new)]) [cls-new-def (new-found? #'cls-new)])
(syntax/loc stx (syntax/loc stx
(begin (begin

6
remix/layout0.rkt
View File

@ -223,8 +223,8 @@
(begin-encourage-inline (begin-encourage-inline
(define (all-name-f v) (rep-accessor v all-f-idx)) (define (all-name-f v) (rep-accessor v all-f-idx))
...) ...)
(define-syntax name (remix:def
(static-interface (remix:#%brackets static-interface name)
(remix:#%brackets #:alloc name-alloc) (remix:#%brackets #:alloc name-alloc)
(remix:#%brackets #:set name-set) (remix:#%brackets #:set name-set)
(remix:#%brackets #:= name-set) (remix:#%brackets #:= name-set)
@ -236,7 +236,7 @@
[(define (layout-planner-id _) [(define (layout-planner-id _)
#'stx-the-planner-id) #'stx-the-planner-id)
(define (layout-field->acc _) (define (layout-field->acc _)
f->acc)])))))]))])) f->acc)]))))]))]))
(provide (rename-out [phase0:layout layout]) (provide (rename-out [phase0:layout layout])
(for-syntax gen:layout (for-syntax gen:layout