Moving lists to basis
parent
c4aa14b9d9
commit
89e3eb6fa3
|
@ -83,7 +83,7 @@ ERROR: unknown-chloe-tag tag ;
|
||||||
|
|
||||||
: compile-chloe-tag ( tag -- )
|
: compile-chloe-tag ( tag -- )
|
||||||
dup main>> dup tags get at
|
dup main>> dup tags get at
|
||||||
[ curry call( -- ) ]
|
[ call( tag -- ) ]
|
||||||
[ unknown-chloe-tag ]
|
[ unknown-chloe-tag ]
|
||||||
?if ;
|
?if ;
|
||||||
|
|
||||||
|
|
|
@ -72,6 +72,6 @@ TUPLE: fhtml path ;
|
||||||
C: <fhtml> fhtml
|
C: <fhtml> fhtml
|
||||||
|
|
||||||
M: fhtml call-template* ( filename -- )
|
M: fhtml call-template* ( filename -- )
|
||||||
'[ _ path>> utf8 file-contents eval-template ] call( -- ) ;
|
[ path>> utf8 file-contents eval-template ] call( filename -- ) ;
|
||||||
|
|
||||||
INSTANCE: fhtml template
|
INSTANCE: fhtml template
|
||||||
|
|
Loading…
Reference in New Issue