typo?

Jens Thiele <[email protected]> Sat, 07 Dec 2024 12:05:42 +0100
Newsgroups gmane.lisp.scheme.gauche
Message-ID <[email protected]>
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))