Merge branch 'master' of http://gitea.stocksriddle.one/vaclavt/mlisp

stdlib/doc.lsp

@@ -23,7 +23,7 @@
 	(define lines (map (lambda (ln) (parse-line ln)) lines))
 	(define lines (filter (lambda (e) (!= e nil)) lines))
 	(set! doc::doc_entries lines)
-	"doc loaded"
+	'loaded
 ))
 
 (defun doc::print (entry)
@@ -51,7 +51,7 @@
 	)
 ))
 
-(defun doc::lookup (what)
+(defun doc::look (what)
 (do	(define what_list (string-split (string-downcase what) "\s+"))
 	(define scores '())	; ((score entry)..)
 			
@@ -84,10 +84,10 @@
 ))
 
 (defun doc::appropos (which)
-	(doc::lookup which))
+	(doc::look which))
 
-(defun doc::section (which)
-	(print (term-red "implement me!")))
+;(defun doc::section (which)
+;	(print (term-red "implement me!")))
 
 (define doc::doc_entries '())	; must be here
 
@@ -96,5 +96,5 @@
 
 ;;example
 ; (doc::man "first")
-; (doc::lookup "string pad")
-; (doc::lookup "list flat")
+; (doc::look "string pad")
+; (doc::look "list flat")

stdlib/stdlib.lsp

@@ -251,4 +251,7 @@
             )
             maxx
         )
-    ))
+    ))
+
+; load and init do system
+(include "/usr/local/var/mlisp/doc.lsp")