Welcome to the CHICKEN Scheme pasting service

link results pasted by markjf on Wed Oct 6 19:52:09 2021

markf@pop-os:~/dev/personal/lisp/chicken/aoc-chicken/build$ (cd $(csi -p '(begin (import chicken.platform) (car (repository-path)))') ; grep chicken\\. *.link)
apropos-csi.link:(chicken.csi apropos-api srfi-1)
bitstring.link:(bitstring-lowlevel srfi-1 chicken.foreign)
bitstring-lowlevel.link:(chicken.foreign)
chicken-doc.link:(chicken.csi srfi-69 matchable sxml-transforms fmt-unicode fmt srfi-13 srfi-1)
md5-api.link:(chicken.foreign)
message-digest-chunk.link:(memory-mapped-files chicken.foreign)
simple-md5.link:(srfi-13 memory-mapped-files chicken.foreign)
srfi-144.link:(scheme.complex chicken.foreign scheme.inexact scheme.base r7rs)
srfi-179.link:  chicken.foreign)

possible fix added by Bunny351 on Wed Oct 6 20:06:20 2021

diff --git a/eval.scm b/eval.scm
index ce388eb1..30c651cd 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1252,7 +1252,7 @@
   (let ((mod (or (eq? lib mod) mod)))
     (cond
       ((assq lib core-unit-requirements) => 
-        (lambda (a) (values (cdr a) #f)))
+        (lambda (a) (values (cdr a) #t)))
       ((memq lib builtin-features) 
         (values '(##core#undefined) #t))
       ((memq lib core-units)

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Type in the text below:
  __          _                 
 / _|_   ____| |_ __ ___   __ _ 
| |_\ \ / / _` | '_ ` _ \ / _` |
|  _|\ V / (_| | | | | | | (_| |
|_|   \_/ \__,_|_| |_| |_|\__, |
                          |___/ 
Visually impaired? Let me spell it for you (wav file) download WAV