Moving lists to basis
							parent
							
								
									c4aa14b9d9
								
							
						
					
					
						commit
						89e3eb6fa3
					
				|  | @ -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 ; | ||||
| 
 | ||||
|  |  | |||
|  | @ -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 | ||||
|  |  | |||
		Loading…
	
		Reference in New Issue