Skip to main content

Browse the archive

https://github.com/jrincayc/ucblogo-code
26 January 2024, 08:32:23 UTC
Revision 83cc26c4471bbf5be58589e2f43a4caba6b98469 authored by Joshua J. Cogliati on 26 December 2019, 17:49:01 UTC, committed by Joshua J. Cogliati on 26 December 2019, 17:50:26 UTC 
Adding source code to windows install
1 parent 750ff0d
Raw File
Tip revision: 83cc26c4471bbf5be58589e2f43a4caba6b98469 authored by Joshua J. Cogliati on 26 December 2019, 17:49:01 UTC
Adding source code to windows install
Tip revision: 83cc26c
emacs.debug 
;;;  -*- logo -*-

to emacs.debug :file_elisp_code :trace_or_step
localmake "wr_elisp_code writer
if namep "printwidthlimit [
   localmake "pw_elisp_code :printwidthlimit
   ern "printwidthlimit]
openwrite :file_elisp_code
setwrite :file_elisp_code
bury [[] [wr_elisp_code pw_elisp_code file_elisp_code trace_or_step] []]
(foreach contents run (list :trace_or_step)
                      [PROCEDURES: VARIABLES: PROPERTIES:]
                      [[names debugged title]
                       [pr :title pr []
                           pr map [[name]
                                   [op ifelse memberp :name :debugged
                                           [(word "\( :name "\))]
                                           [:name]]] :names
                           pr []]])
close :file_elisp_code
setwrite :wr_elisp_code
if namep "pw_elisp_code [make "printwidthlimit :pw_elisp_code]
end

bury "emacs.debug
back to top