From c6ae1bb6230894346094364eb08d3aca0efdea9a Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Fri, 2 Jul 2021 14:01:19 +0200 Subject: 2021-07-02 13:18:00 --- metapost/context/base/mpxl/mp-luas.mpxl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'metapost') diff --git a/metapost/context/base/mpxl/mp-luas.mpxl b/metapost/context/base/mpxl/mp-luas.mpxl index d9686eadf..8a4e369b0 100644 --- a/metapost/context/base/mpxl/mp-luas.mpxl +++ b/metapost/context/base/mpxl/mp-luas.mpxl @@ -279,12 +279,14 @@ newscriptindex mfun_newrecord ; mfun_newrecord := scriptindex "newrecord" ; newscriptindex mfun_setrecord ; mfun_setrecord := scriptindex "setrecord" ; newscriptindex mfun_getrecord ; mfun_getrecord := scriptindex "getrecord" ; +let record = runscript ; % We need to use "let" because we don't expand! + def newrecord = runscript mfun_newrecord ; enddef ; % semicolon prevents lookahead def setrecord = runscript mfun_setrecord ; enddef ; def getrecord = runscript mfun_getrecord enddef ; permanent - newrecord, setrecord, getrecord ; + record, newrecord, setrecord, getrecord ; % No vardef's because we need to scan for an assignment too and we'll see % an endgroup otherwise. -- cgit v1.2.3