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 -- ) : 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 ;

View File

@ -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