Skip to content
Snippets Groups Projects
Commit 08e8a502 authored by wlott's avatar wlott
Browse files

Added a (setf (ts-stream-char-pos stream) 0) to the accept-input function

so that char-pos will be reset to zero whenever the user presses enter.
parent 2e834202
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/ts-stream.lisp,v 1.1.1.9 1991/11/09 03:06:00 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/ts-stream.lisp,v 1.1.1.10 1991/12/06 05:25:21 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -84,7 +84,14 @@
(setf (ts-stream-current-input stream)
(nconc (ts-stream-current-input stream)
(list (etypecase input
(string input)
(string
(let ((newline
(position #\newline input :from-end t)))
(setf (ts-stream-char-pos stream)
(if newline
(- (length input) newline 1)
(length input)))
input))
(cons
(ext:make-stream-command (car input)
(cdr input)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment