Moving lists to basis

db4
Daniel Ehrenberg 2009-02-08 23:49:05 -06:00
parent c4aa14b9d9
commit 89e3eb6fa3
18 changed files with 2 additions and 2 deletions

View File

@ -83,7 +83,7 @@ ERROR: unknown-chloe-tag tag ;
: compile-chloe-tag ( tag -- )
dup main>> dup tags get at
[ curry call( -- ) ]
[ call( tag -- ) ]
[ unknown-chloe-tag ]
?if ;

View File

@ -72,6 +72,6 @@ TUPLE: fhtml path ;
C: <fhtml> fhtml
M: fhtml call-template* ( filename -- )
'[ _ path>> utf8 file-contents eval-template ] call( -- ) ;
[ path>> utf8 file-contents eval-template ] call( filename -- ) ;
INSTANCE: fhtml template