fix: --program can load libs on demand

Author: dermagen

Diff for: README.md

@@ -3,7 +3,7 @@
 # Cheap and fast R7RS Scheme Interpreter
                          
 SKINT is a portable interpreter for the R7RS Scheme programming language. 
-It can be built from five C source files (10K lines of code) with a single command. There is no distributives or packages; 
+It can be built from five C source files (10K lines of code) with a single command. There are no distributives or packages; 
 just compile the source files with your favorite C compiler, link them with the standard C runtime libraries, 
 and you're done. For some platforms, precompiled binaries are available (please see [releases](https://github.com/false-schemers/skint/releases)).
 

Diff for: pre/t.scm

@@ -2546,7 +2546,8 @@
   (define modname (string->symbol (path-strip-extension (path-strip-directory filename))))
   (define global (lambda (n) (symbol-append 'prog:// modname '? n)))
   (define ial (list (cons 'import (make-location 'import))))
-  (define env (make-controlled-environment ial global root-environment))
+  (define pre (make-sld-environment *root-name-registry*))
+  (define env (make-controlled-environment ial global pre))
   (define ci? #f) ; normal load-like behavior is the default
   (define main-args (cons filename args))
   (call-with-current-input-file filename ;=>

Diff for: t.c

@@ -1587,14 +1587,14 @@ char *t_code[] = {
   "current-input-file)[62",
 
   "P", "run-program",
-  "%2,,,,,,#0#1#2#3#4#5${${.(i10),@(y20:path-strip-directory)[01},@(y20:p"
-  "ath-strip-extension)[01}X5.!0.0,&1{%1.0,'(y1:?),:0^,'(y7:prog://),@(y1"
-  "3:symbol-append)[14}.!1'(y6:import)b,'(y6:import)c,l1.!2${@(y16:root-e"
-  "nvironment),.4^,.6^,@(y27:make-controlled-environment)[03}.!3f.!4.7,.7"
-  "c.!5${.5,.8,&2{%1${:0^,@(y12:command-line)[01}${.2,@(y14:read-code-sex"
-  "p)[01},,#0:1,.3,.2,&3{%1.0R8~?{${:2^,.3,@(y4:eval)[02}${:1,@(y14:read-"
-  "code-sexp)[01},:0^[11}]1}.!0.0^_1[11},.9,@(y28:call-with-current-input"
-  "-file)[02}t]8",
+  "%2,,,,,,,#0#1#2#3#4#5#6${${.(i11),@(y20:path-strip-directory)[01},@(y2"
+  "0:path-strip-extension)[01}X5.!0.0,&1{%1.0,'(y1:?),:0^,'(y7:prog://),@"
+  "(y13:symbol-append)[14}.!1'(y6:import)b,'(y6:import)c,l1.!2${@(y20:*ro"
+  "ot-name-registry*),@(y20:make-sld-environment)[01}.!3${.5^,.4^,.6^,@(y"
+  "27:make-controlled-environment)[03}.!4f.!5.8,.8c.!6${.6,.9,&2{%1${:0^,"
+  "@(y12:command-line)[01}${.2,@(y14:read-code-sexp)[01},,#0:1,.3,.2,&3{%"
+  "1.0R8~?{${:2^,.3,@(y4:eval)[02}${:1,@(y14:read-code-sexp)[01},:0^[11}]"
+  "1}.!0.0^_1[11},.(i10),@(y28:call-with-current-input-file)[02}t]9",
 
   "P", "repl-evaluate-top-form",
   "%3,,#0#1.!0${.2,&1{%!0.0:!0]1},.6,.6,&2{%0:1,:0,@(y17:evaluate-top-for"