clear interactive command added

parent 3e105ac5
......@@ -106,6 +106,7 @@
(define ref #f)
(define set #f)
(define old #f)
(define clear #f)
(let* ((l
(with-input-from-port port
(lambda ()
......@@ -140,6 +141,7 @@
((ref) (set! ref ((@ (guile) read))))
((set) (set! set (list ((@ (guile) read))
((@ (guile) read)))))
((clear) (set! clear #t))
((lo lold)
(set! old #t)
(if lold (<state-set!> lold)))
......@@ -171,6 +173,8 @@
(lp #f (peek-char) (cons ch r) #f))))))))
(cond
(clear
`((@ (logic guile-log) <clear>)))
(old
'((@ (guile) if) #f #f))
(ref
......@@ -222,7 +226,8 @@ HELP FOR PROLOG COMMANDS
(.ref ) <ref> get value of reference user variable ref
(.set ) <ref> <val> set user variable ref to value val
---------------------------------------------------------------------
(.clear ) clear the prolog stack and state
---------------------------------------------------------------------
")
'(if #f #f))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment