Remove test code

2025-09-22 04:14:03 -07:00
parent 5dbc0276d4
commit dfbd60db18
1 changed files with 1 additions and 9 deletions
--- a/src/kernel.sl
+++ b/src/kernel.sl
@ -349,12 +349,4 @@
  "Return non-nil if SYMBOL is accessible from PACKAGE."
  (let* ((def '::unbound)
         (found (intern-soft (symbol-name symbol) def package t)))
-    (not (eq found def))))
-
-(register-package 'test)
-
-'test::a
-'test::b
-
-(println (symbol-accessible-p 'b))
-(println (symbol-accessible-p 'b 'test))
+    (eq symbol found)))