debug available from boot.inc

apps/boing/app.lisp

@@ -41,20 +41,18 @@
 	(view-sub old_frame)
 	(view-add-back backdrop frame)
 	(view-dirty frame)
-	(debug (cat "Pos = " (str x) "," (str y) (char 10)))
+	(debug "Pos = " x "," y)
 	(while (defq msg (mail-trymail))
 		(cond
 			((eq (setq id (read-long ev_msg_target_id msg)) event_win_close)
 				(setq id nil))
 			((eq id event_win_min)
 				;min button
-				(debug (cat "Min button pressed" (char 10)))
 				(bind '(x y _ _) (view-get-bounds (view-dirty window)))
 				(bind '(w h) (view-pref-size window))
 				(view-dirty-all (view-change window x y w h)))
 			((eq id event_win_max)
 				;max button
-				(debug (cat "Max button pressed" (char 10)))
 				(bind '(x y _ _) (view-get-bounds (view-dirty window)))
 				(bind '(w h) (view-pref-size window))
 				(view-dirty-all (view-change window x y (fmul w 1.5) (fmul h 1.5))))

class/lisp/boot.inc

@@ -104,6 +104,8 @@
 (ffi prin "class/lisp/func_prin" 0)
 (ffi print "class/lisp/func_print" 0)
 
+(ffi kernel-debug "sys/kernel/lisp_debug" 0)
+
 (defq t 't nil 'nil
 	lisp_type_list (bit-shl 1 0)
 	lisp_type_integer (bit-shl 1 1)
@@ -153,6 +155,10 @@
 	;(run path)
 	`(repl (file-stream ,_) ,_))
 
+(defmacro debug (&rest _)
+	;(debug [form] ...)
+	`(kernel-debug (apply cat (map str (list ~_ (char 10))))))
+
 ;;;;;;;;
 ; Scopes
 ;;;;;;;;

sys/kernel/lisp.vp

@@ -102,7 +102,7 @@
 
 (errorcases
 (vp-label 'error1)
-	(f-call 'lisp 'repl_error {this, "(debug str)", error_msg_wrong_types, args} {_, value})
+	(f-call 'lisp 'repl_error {this, "(kernel-debug str)", error_msg_wrong_types, args} {_, value})
 	(goto 'exit)
 	(signature 'sig 'string))
 

sys/lisp.inc

@@ -39,4 +39,3 @@
 (ffi task-sleep "sys/task/lisp_sleep" 0)
 (ffi kernel-declare "sys/kernel/lisp_declare" 0)
 (ffi kernel-total "sys/kernel/lisp_total" 0)
-(ffi debug "sys/kernel/lisp_debug" 0)