Re: What's up with 'current-load-port'

[Thomas Morley <thomasmorley65@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1070 bytes --]

Am So., 4. Nov. 2018 um 13:50 Uhr schrieb Alex Vong <alexvong1995@gmail.com>:
>
> Hello,
>
> Thomas Morley <thomasmorley65@gmail.com> writes:
>
> > Hi,
> >
> > what's up with 'current-load-port'?
> >
> > Simply checking in a guile-prompt I get:
> > guile-1.8: #<primitive-procedure current-load-port>
> > guile-2.0.14: #<procedure current-load-port ()>
> > guile-2.2.4 and guile-2.9.1:
> > ;;; <unknown-location>: warning: possibly unbound variable `current-load-port'
> > ERROR: In procedure module-lookup: Unbound variable: current-load-port
> >
> > It's in the manual, though, without any hint it could be deprecated or
> > disabled or the need to use a certain module.
> >
> > What am I missing?
> >
> Indeed, looking at the (ice-9 ports) module. It seems the
> 'current-load-port' procedure is not exported for some reason
> (forgotten?). A workaround would be to resolve it directly:
>
>   (@@ (ice-9 ports) current-load-port)
>
> >
> > Cheers,
> >   Harm
>
> Cheers,
> Alex

Hi Alex,

thanks for the hint.
Would a patch like attached be sufficient?

Best,
  Harm

[-- Attachment #2: 0001-Export-current-load-port-from-ice-9.patch --]
[-- Type: text/x-patch, Size: 752 bytes --]

From 6f85349c6a1353023b06c64985bc59397d9b8bc4 Mon Sep 17 00:00:00 2001
From: Thomas Morley <thomasmorley65@gmail.com>
Date: Sun, 4 Nov 2018 14:10:38 +0100
Subject: [PATCH] Export current-load-port from ice-9

---
 module/ice-9/ports.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/module/ice-9/ports.scm b/module/ice-9/ports.scm
index 8eee22988..061ae1c27 100644
--- a/module/ice-9/ports.scm
+++ b/module/ice-9/ports.scm
@@ -30,6 +30,7 @@
             %port-property
             %set-port-property!
             current-input-port current-output-port
+            current-load-port
             current-error-port current-warning-port
             set-current-input-port set-current-output-port
             set-current-error-port
-- 
2.17.1