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))
(match-define (list int-vtable-id cls-int-impl-def)
(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)])
(syntax/loc stx
(begin

28
remix/layout0.rkt
View File

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