Aliased glyph cleanup
This commit is contained in:
parent
86038037c0
commit
d0f37b5464
8 changed files with 194 additions and 212 deletions
|
@ -99,10 +99,10 @@ define-macro create-glyph : syntax-rules
|
|||
`[create-glyph @name @code @body] : begin
|
||||
dirty `[$createAndSaveGlyphImpl$ @[formOf name] @[formOf code] @[formOf body]]
|
||||
|
||||
define-macro create-aliased : syntax-rules
|
||||
`[create-aliased @name] : begin
|
||||
dirty `[create-aliased @[formOf name] null]
|
||||
`[create-aliased @name @code] : begin
|
||||
define-macro create-aliased-glyph : syntax-rules
|
||||
`[create-aliased-glyph @name] : begin
|
||||
dirty `[create-aliased-glyph @[formOf name] null]
|
||||
`[create-aliased-glyph @name @code] : begin
|
||||
dirty `[$createAndSaveGlyphImpl$ @[formOf name] @[formOf code] [lambda : begin
|
||||
[this.include currentGlyph true true]
|
||||
[this.cloneRankFromGlyph currentGlyph] ]]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue