From ae1c8a6b70153b86b7ff1ec972ba5f7ce7e818f6 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 9 May 2010 05:18:19 +0000 Subject: * interp/cattable.boot: Replace call to CONS with bracket syntax. * interp/clammed.boot: Likewise. * interp/cparse.boot: Likewise. * interp/dq.boot: Likewise. * interp/fortcall.boot: Likewise. * interp/g-boot.boot: Likewise. * interp/i-coerce.boot: Likewise. * interp/i-coerfn.boot: Likewise. * interp/i-funsel.boot: Likewise. * interp/i-object.boot: Likewise. * interp/i-output.boot: Likewise. * interp/i-resolv.boot: Likewise. * interp/i-spec1.boot: Likewise. * interp/i-spec2.boot: Likewise. * interp/i-syscmd.boot: Likewise. * interp/incl.boot: Likewise. * interp/interop.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/msgdb.boot: Likewise. * interp/newfort.boot: Likewise. * interp/nruncomp.boot: Likewise. * interp/nrunopt.boot: Likewise. * interp/rulesets.boot: Likewise. * interp/scan.boot: Likewise. * interp/termrw.boot: Likewise. * interp/wi2.boot: Likewise. --- src/interp/i-object.boot | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/interp/i-object.boot') diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index 401ed7fc..56a09579 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -67,8 +67,8 @@ $useIntegerSubdomain := true -- These are the new structure functions. -objNew(val, mode) == CONS(mode,val) -- new names as of 10/14/93 -objNewWrap(val, mode) == CONS(mode,wrap val) +objNew(val, mode) == [mode,:val] -- new names as of 10/14/93 +objNewWrap(val, mode) == [mode,:wrap val] objNewCode(val, mode) == ["CONS", MKQ mode,val ] objSetVal(obj,val) == obj.rest := val objSetMode(obj,mode) == obj.first := mode @@ -133,10 +133,10 @@ instantiationNormalForm(op,argl) == -- Tuples and Crosses asTupleNew(eltType,size,listOfElts) == - CONS(size, makeSimpleArrayFromList(eltType,listOfElts)) + [size,:makeSimpleArrayFromList(eltType,listOfElts)] asTupleNew0(eltType,listOfElts) == - CONS(#listOfElts, makeSimpleArrayFromList(eltType,listOfElts)) + [#listOfElts,:makeSimpleArrayFromList(eltType,listOfElts)] asTupleNewCode(eltType, size, listOfElts) == ["asTupleNew", quoteForm getVMType eltType, size, ["LIST", :listOfElts]] -- cgit v1.2.3