ref: f141072d5a38bbd6280ed92a881a5e9a86049e9f
parent: 9ecc53223e7d13369c3d78ff1003e46bde6d953f
author: spew <spew@cbza.org>
date: Wed Apr 9 00:24:21 EDT 2025
lsd: fix a couple silly things
--- a/src/plan9/lsd.sl
+++ b/src/plan9/lsd.sl
@@ -194,7 +194,6 @@
:doc-see instr
:doc-see bpdel
:doc-group lsd
- (def (txtsymb s) (global-symbol s :text T))
(waitstop)
(let {[addr (instr-addr at)]}(when (has? bptbl addr)
@@ -209,7 +208,6 @@
:doc-see instr
:doc-see bpdel
:doc-group lsd
- (def (txtsymb s) (global-symbol s :text T))
(waitstop)
(let {[addr (instr-addr at)]}(unless (has? bptbl addr)
@@ -463,9 +461,7 @@
(global-symbol "strecpy") → #(symbol "strecpy" #\T 2276784)»
:doc-group lsd
(def (find tbl k) (and (has? tbl k) (get tbl k)))
- (when (and (eq? text NIL) (eq? data NIL))
- (set! text T)
- (set! data T))
+ (and (not text) (not data) (set! text T) (set! data T))
(or (and text (find (global-text globals) s))
(and data (find (global-data globals) s))))
--
⑨