diff options
Diffstat (limited to 'src/interp/bc-matrix.boot')
| -rw-r--r-- | src/interp/bc-matrix.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/bc-matrix.boot b/src/interp/bc-matrix.boot index 13997d7f..1af6f1cc 100644 --- a/src/interp/bc-matrix.boot +++ b/src/interp/bc-matrix.boot @@ -93,7 +93,7 @@ bcInputMatrixByFormula(htPage,junk) == htShowPage() bcInputMatrixByFormulaGen htPage == - fun := htpProperty(htPage,'exitFunction) => FUNCALL(fun, htPage) + fun := htpProperty(htPage,'exitFunction) => apply(fun, [htPage]) formula := htpLabelInputString(htPage,'formula) rowVar := htpLabelInputString(htPage,'rowVar) colVar := htpLabelInputString(htPage,'colVar) @@ -134,7 +134,7 @@ bcInputExplicitMatrix(htPage,junk) == bcGenExplicitMatrix htPage == htpSetProperty(htPage,'matrix,htpInputAreaAlist htPage) - fun := htpProperty(htPage,'exitFunction) => FUNCALL(fun, htPage) + fun := htpProperty(htPage,'exitFunction) => apply(fun, [htPage]) bcGen bcMatrixGen htPage bcMatrixGen htPage == |