diff options
Diffstat (limited to 'src/interp/br-util.boot')
| -rw-r--r-- | src/interp/br-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot index fe1bb927..91007ac8 100644 --- a/src/interp/br-util.boot +++ b/src/interp/br-util.boot @@ -534,7 +534,7 @@ emptySearchPage(kind,filter,:options) == isLoaded? conform == GETL(constructor? opOf conform,'LOADED) string2Integer s == - and/[DIGIT_-CHAR_-P (s.i) for i in 0..MAXINDEX s] => PARSE_-INTEGER s + and/[DIGIT_-CHAR_-P (s.i) for i in 0..MAXINDEX s] => readInteger s nil dbGetInputString htPage == @@ -618,7 +618,7 @@ dbPart(line,n,k) == --returns part n of line (n=1,..) beginning in column k dbXParts(line,n,m) == [.,nargs,:r] := dbParts(line,n,m) - [dbKindString line.0,dbName line,PARSE_-INTEGER nargs,:r] + [dbKindString line.0,dbName line,readInteger nargs,:r] dbParts(line,n,m) == --split line into n parts beginning in column m n = 0 => nil |