mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

set *body* to null on close of clog-repl window

Browse source
This commit is contained in:
David Botton 2024-05-26 22:47:20 -04:00
parent ac770b7778
commit e4e2a53d79
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-helpers.lisp
View file

@ -113,7 +113,10 @@ and debugger display for clog events."
(when clog-gui-initialize
(clog-gui:clog-gui-initialize body :use-clog-debugger
use-clog-debugger))
(setf clog-user::*body* body))
(setf clog-user:*body* body)
(run body)
(when (eq clog-user:*body* body)
(setf clog-user:*body* nil)))
:path "/repl")
(open-browser :url (format nil "http://127.0.0.1:~A/repl" *clog-port*))
(format t "Use clog-user:*body* to access the clog-repl window."))