home: hub: 9ficl

Info  •  Files  •  Log

It should be "ficlInteger", otherwise "postpone" generates
broken execution tokens as seen in "see" output.

--- a/primitives.c

+++ b/primitives.c

@@ -4,7 +4,7 @@

 ** ANS Forth CORE word-set written in C

 ** Author: John Sadler (john_sadler@alum.mit.edu)

 ** Created: 19 July 1997

-** $Id: primitives.c,v 1.1 2010/08/12 12:50:33 asau Exp $

+** $Id: primitives.c,v 1.2 2010/09/10 11:16:07 asau Exp $

 *******************************************************************/

 /*

 ** Copyright (c) 1997-2001 John Sadler (john_sadler@alum.mit.edu)

@@ -989,7 +989,7 @@

 void ficlPrimitiveLiteralIm(ficlVm *vm)

 {

     ficlDictionary *dictionary = ficlVmGetDictionary(vm);

-	int value;

+	ficlInteger value;

 	value = ficlStackPopInteger(vm->dataStack);