From: Viacheslav Dushin <slava333@gmail.com>
To: guile-user@gnu.org
Subject: Using guile-scmutils with REPL and compilation
Date: Sat, 20 Jun 2020 02:43:00 +0300 [thread overview]
Message-ID: <CAJN5JQqG-2U99Xt40RHamAncrJhkkv_KijS2=zrsOVQq0_6u4Q@mail.gmail.com> (raw)
Hello all
I have a couple of questions about guile-scmutils.
First one:
I run into a similar problem that is described here:
https://lists.gnu.org/archive/html/guile-user/2008-04/msg00007.html
Turns out the solution is to modify top-repl as said here:
https://lists.gnu.org/archive/html/guile-user/2008-04/msg00021.html
Since I'm new to Lisp I decided to work on the ice-9 source code
directly. I'm going to create my own scmutils-top-repl after I resolve
all problems.
Here is how my top-repl from top-repl.scm looks like:
(define (top-repl)
(let ((guile-user-module (resolve-module '(guile-user))))
(add-to-load-path "/Users/slava/.guile.d/")
(load (%search-load-path "guile-scmutils/src/load.scm"))
(set-current-module generic-environment)
;; Use some convenient modules (in reverse order)
(set-current-module guile-user-module)
(process-use-modules
(append
'(((ice-9 r5rs))
((ice-9 session)))
(if (provided? 'regex)
'(((ice-9 regex)))
'())
(if (provided? 'threads)
'(((ice-9 threads)))
'())))
(call-with-sigint
(lambda ()
(and (defined? 'setlocale)
(catch 'system-error
(lambda ()
(setlocale LC_ALL ""))
(lambda (key subr fmt args errno)
(format (current-error-port)
"warning: failed to install locale: ~a~%"
(strerror (car errno))))))
(let ((status (start-repl (current-language))))
(run-hook exit-hook)
status)))
)
)
I simply added these three lines:
(add-to-load-path "/Users/slava/.guile.d/")
(load (%search-load-path "guile-scmutils/src/load.scm"))
(set-current-module generic-environment)
When I run it I get the following error:
;;; note: source file
/usr/local/Cellar/guile/2.2.7_2/share/guile/2.2/ice-9/boot-9.scm
;;; newer than compiled
/usr/local/Cellar/guile/2.2.7_2/lib/guile/2.2/ccache/ice-9/boot-9.go
;;; note: source file
/usr/local/Cellar/guile/2.2.7_2/share/guile/2.2/ice-9/top-repl.scm
;;; newer than compiled
/usr/local/Cellar/guile/2.2.7_2/lib/guile/2.2/ccache/ice-9/top-repl.go
;;; note: source file
/usr/local/Cellar/guile/2.2.7_2/share/guile/2.2/ice-9/top-repl.scm
;;; newer than compiled
/Users/slava/.cache/guile/ccache/2.2-LE-8-3.A/usr/local/Cellar/guile/2.2.7_2/share/guile/2.2/ice-9/top-repl.scm.go
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /usr/local/Cellar/guile/2.2.7_2/share/guile/2.2/ice-9/top-repl.scm
;;; ice-9/top-repl.scm:53:4: warning: possibly unbound variable
`generic-environment'
;;; compiled /Users/slava/.cache/guile/ccache/2.2-LE-8-3.A/usr/local/Cellar/guile/2.2.7_2/share/guile/2.2/ice-9/top-repl.scm.go
Backtrace:
3 (apply-smob/1 #<catch-closure 10eabcee0>)
In ice-9/eval.scm:
657:36 2 (_ _)
In ice-9/top-repl.scm:
52:4 1 (top-repl)
In unknown file:
0 (_ #<procedure 10e617440 at ice-9/eval.scm:330:13 ()> # #)
ERROR: In procedure module-lookup: Unbound variable: generic-environment
If I remove (set-current-module guile-user-module), then it runs OK
and I even have access to the scmutils functions, e.g.:
(define h (compose cube sin))
(h 2)
outputs:
.7518269446689928
What am I missing?
Second one:
There is also a problem with code compilation:
(load (%search-load-path "guile-scmutils/src/load.scm"))
(set-current-module generic-environment)
(define ((Gamma w) t)
(up t (w t) ((D w) t)))
works fine in the REPL, but fails to compile (guile code.scm) with the
following error:
;;; note: source file
/usr/local/Cellar/guile/2.2.7_2/share/guile/2.2/ice-9/boot-9.scm
;;; newer than compiled
/usr/local/Cellar/guile/2.2.7_2/lib/guile/2.2/ccache/ice-9/boot-9.go
;;; note: source file
/Users/slava/Documents/work/func-diff-geometry/prologue/code.scm
;;; newer than compiled
/Users/slava/.cache/guile/ccache/2.2-LE-8-3.A/Users/slava/Documents/work/func-diff-geometry/prologue/code.scm.go
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /Users/slava/Documents/work/func-diff-geometry/prologue/code.scm
;;; WARNING: compilation of
/Users/slava/Documents/work/func-diff-geometry/prologue/code.scm
failed:
;;; Syntax error:
;;; /Users/slava/Documents/work/func-diff-geometry/prologue/code.scm:4:0:
source expression failed to match any pattern in form (define ((Gamma
w) t) (up t (w t) ((D w) t)))
Backtrace:
6 (primitive-load "/Users/slava/Documents/work/func-diff-…")
5 (_ #<procedure 102790fe0 at ice-9/eval.scm:330:13 ()> # #)
4 (_ #<procedure 102790ec0 at ice-9/eval.scm:330:13 ()> # #)
3 (_ #<procedure 102790de0 at ice-9/eval.scm:330:13 ()> # #)
In ice-9/eval.scm:
245:16 2 (_ #(#(#<module (guile) 102695dc0> #f #<variable 10…> …)))
In unknown file:
1 (string-prefix? "/" #f #<undefined> #<undefined> #<und…> …)
0 (_ #<procedure 102790b20 at ice-9/eval.scm:330:13 ()> # #)
ERROR: In procedure string-prefix?: Wrong type argument in position 2
(expecting string): #f
Thanks, Slava
next reply other threads:[~2020-06-19 23:43 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-06-19 23:43 Viacheslav Dushin [this message]
2020-06-20 7:33 ` Using guile-scmutils with REPL and compilation Vladimir Zhbanov
2020-07-04 14:57 ` Vladimir Zhbanov
2020-07-08 21:04 ` Viacheslav Dushin
2020-07-09 6:32 ` Vladimir Zhbanov
-- strict thread matches above, loose matches on Subject: below --
2020-06-20 14:39 Viacheslav Dushin
2020-07-04 1:06 Viacheslav Dushin
2020-07-04 4:15 ` Catonano
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CAJN5JQqG-2U99Xt40RHamAncrJhkkv_KijS2=zrsOVQq0_6u4Q@mail.gmail.com' \
--to=slava333@gmail.com \
--cc=guile-user@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).