From 4367febcd70e9bb7538cd168917ec3c7d3b0a6f3 Mon Sep 17 00:00:00 2001 From: mRnea Date: Mon, 19 Aug 2024 21:37:24 +0300 Subject: add target option to command line, fix | when its last char on line --- cl-forth.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'cl-forth.lisp') diff --git a/cl-forth.lisp b/cl-forth.lisp index faa48a6..ec2a0f3 100644 --- a/cl-forth.lisp +++ b/cl-forth.lisp @@ -46,12 +46,12 @@ (let ((flag t)) (cond ((char= #\| next-char) (read-char line-stream) - (if (char-equal #\Space - (peek-char nil line-stream nil nil)) - (collect (make-token :pipe line-num col :identifier) - into tokens) - (progn (unread-char #\| line-stream) - (setf flag nil)))) + (let ((peeked (peek-char nil line-stream nil nil))) + (if (or (not peeked) (char-equal #\Space peeked)) + (collect (make-token :pipe line-num col :identifier) + into tokens) + (progn (unread-char #\| line-stream) + (setf flag nil))))) ((char= #\Space next-char) (read-char line-stream)) ((char= #\; next-char) ;; and not in string (finish)) -- cgit v1.2.3