Re: typo?

--===============4321448278172480456==
Content-Type: multipart/alternative; boundary="0000000000008ce3230628ac5954"

--0000000000008ce3230628ac5954
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

Aha, good catch.
Module `r7rs-setup` creates a bunch of R7RS modules (including
`scheme.time` and populates it, so that's why the typo has been overlooked.
Fix pushed.  Thanks.

On Sat, Dec 7, 2024 at 1:06=E2=80=AFAM Jens Thiele <[email protected]> wrote:

> Hi,
>
> I think this is a typo, although it seems to work anyway:
> $ gosh
> gosh$ (current-second)
> *** UNBOUND-VARIABLE-ERROR: unbound variable: current-second
> Stack Trace:
> _______________________________________
>   0  (report-error e)
>   1  (eval expr env)
>         at "/usr/share/gauche-0.98/0.9.15/lib/gauche/interactive.scm":359
>   2  (evaluator exp (vm-current-module))
>   3  (with-error-handler (^e (report-error e) #t) (^ () (let loop2 ...
> gosh$ (use scheme.time)
> gosh$ (current-second)
> 1.733569495492087e9
>
>
> diff --git a/lib/scheme/time.scm b/lib/scheme/time.scm
> index cc16a9ef5..086514a39 100644
> --- a/lib/scheme/time.scm
> +++ b/lib/scheme/time.scm
> @@ -1,4 +1,4 @@
>  ;;
>  ;; This is a cushion module to use R7RS (scheme time) from Gauche
>  ;;
> -(define-module scheme.timen (use r7rs-setup))
> +(define-module scheme.time (use r7rs-setup))
>
>
> _______________________________________________
> Gauche-devel mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/gauche-devel
>

--0000000000008ce3230628ac5954
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr">Aha, good catch.<div>Module `r7rs-setup` creates a bunch o=
f R7RS modules (including `scheme.time` and populates it, so that&#39;s why=
 the typo has been overlooked.</div><div>Fix pushed.=C2=A0 Thanks.</div></d=
iv><br><div class=3D"gmail_quote gmail_quote_container"><div dir=3D"ltr" cl=
ass=3D"gmail_attr">On Sat, Dec 7, 2024 at 1:06=E2=80=AFAM Jens Thiele &lt;<=
a href=3D"mailto:[email protected]">[email protected]</a>&gt; wrote:<br></div><bl=
ockquote class=3D"gmail_quote" style=3D"margin:0px 0px 0px 0.8ex;border-lef=
t:1px solid rgb(204,204,204);padding-left:1ex">Hi,<br>
<br>
I think this is a typo, although it seems to work anyway:<br>
$ gosh <br>
gosh$ (current-second)<br>
*** UNBOUND-VARIABLE-ERROR: unbound variable: current-second<br>
Stack Trace:<br>
_______________________________________<br>
=C2=A0 0=C2=A0 (report-error e)<br>
=C2=A0 1=C2=A0 (eval expr env)<br>
=C2=A0 =C2=A0 =C2=A0 =C2=A0 at &quot;/usr/share/gauche-0.98/0.9.15/lib/gauc=
he/interactive.scm&quot;:359<br>
=C2=A0 2=C2=A0 (evaluator exp (vm-current-module))<br>
=C2=A0 3=C2=A0 (with-error-handler (^e (report-error e) #t) (^ () (let loop=
2 ...<br>
gosh$ (use scheme.time)<br>
gosh$ (current-second)<br>
1.733569495492087e9<br>
<br>
<br>
diff --git a/lib/scheme/time.scm b/lib/scheme/time.scm<br>
index cc16a9ef5..086514a39 100644<br>
--- a/lib/scheme/time.scm<br>
+++ b/lib/scheme/time.scm<br>
@@ -1,4 +1,4 @@<br>
=C2=A0;;<br>
=C2=A0;; This is a cushion module to use R7RS (scheme time) from Gauche<br>
=C2=A0;;<br>
-(define-module scheme.timen (use r7rs-setup))<br>
+(define-module scheme.time (use r7rs-setup))<br>
<br>
<br>
_______________________________________________<br>
Gauche-devel mailing list<br>
<a href=3D"mailto:[email protected]" target=3D"_blank">Gau=
[email protected]</a><br>
<a href=3D"https://lists.sourceforge.net/lists/listinfo/gauche-devel" rel=
=3D"noreferrer" target=3D"_blank">https://lists.sourceforge.net/lists/listi=
nfo/gauche-devel</a><br>
</blockquote></div>

--0000000000008ce3230628ac5954--


--===============4321448278172480456==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline


--===============4321448278172480456==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
Gauche-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gauche-devel

--===============4321448278172480456==--