diff options
Diffstat (limited to 'src/interp/parsing.lisp')
| -rw-r--r-- | src/interp/parsing.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/parsing.lisp b/src/interp/parsing.lisp index 56ef77ea..33c8e635 100644 --- a/src/interp/parsing.lisp +++ b/src/interp/parsing.lisp @@ -217,7 +217,7 @@ the stack, then stack a NIL. Return the value of prod." (defun initial-substring-p (part whole) "Returns length of part if part matches initial segment of whole." - (let ((x (string-not-greaterp part whole))) + (let ((x (string<= part whole))) (and x (= x (length part)) x))) |