From 438fc2b3dca328c5e9a10e75ccb6ec25d8cf782e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 15 Oct 2007 06:25:45 +0000 Subject: * Makefile.pamphlet (<>): Remove. (server.$(FASLEXT)): New rule. * as.boot.pamphlet (asytran): Use VMREAD. * c-util.boot.pamphlet (intersectionContour): Use assoc. * g-error.boot.pamphlet (argumentDataError): Use read_-line. * g-opt.boot.pamphlet: Use assoc. * ht-util.boot.pamphlet: Likewise. * htsertvar.boot.pamphlet: Likewise. * server.boot.pamphlet: User read_-line. --- src/interp/htsetvar.boot.pamphlet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/htsetvar.boot.pamphlet') diff --git a/src/interp/htsetvar.boot.pamphlet b/src/interp/htsetvar.boot.pamphlet index 4cf78735..f1b38f7d 100644 --- a/src/interp/htsetvar.boot.pamphlet +++ b/src/interp/htsetvar.boot.pamphlet @@ -115,7 +115,7 @@ listOfStrings2String u == htShowSetPage(htPage, branch) == setTree := htpProperty(htPage, 'setTree) $path := [branch,:TAKE(- LASTATOM setTree,$path)] - setData := ASSOC(branch, setTree) + setData := assoc(branch, setTree) null setData => systemError('"No Set Data") st := setData.setType -- cgit v1.2.3