From e0897895be85fa5848abb61763ea426cf42bcc9b Mon Sep 17 00:00:00 2001
From: Higepon Taro Minowa <higepon@gmail.com>
Date: Wed, 3 Jul 2024 17:06:46 +0900
Subject: [PATCH] Update Mosh Scheme to 0.2.8 RC7 (#64)

* Specify mosh version in prelude

* Updated mosh_comp and Mosh-prelude for Mosh 0.2.8
---
 bench                |  3 +--
 src/Mosh-prelude.scm | 13 ++-----------
 2 files changed, 3 insertions(+), 13 deletions(-)

diff --git a/bench b/bench
index 73c8fd8..2ff6961 100755
--- a/bench
+++ b/bench
@@ -862,8 +862,7 @@ kawa_exec ()
 
 mosh_comp ()
 {
-    # remove import statement
-    sed -i -e 's/^(import (scheme.*)$//g' $1
+    :
 }
 
 mosh_exec ()
diff --git a/src/Mosh-prelude.scm b/src/Mosh-prelude.scm
index e0851b5..5363886 100644
--- a/src/Mosh-prelude.scm
+++ b/src/Mosh-prelude.scm
@@ -1,12 +1,3 @@
-(import (rnrs) (rnrs mutable-pairs) (rnrs mutable-strings) (rnrs io simple) (srfi :19) (rnrs r5rs (6)))
-(define (current-second)
-  (let ((d (current-date)))
-    (+ (* 60 60 (date-hour d))
-     (* 60 (date-minute d))
-       (date-second d))))
-(define (current-jiffy)
-  (+ (current-second) (/ (date-nanosecond (current-date)) 1000000000)))
-(define (jiffies-per-second)
-  1)
+(import (mosh config))
 (define (this-scheme-implementation-name)
-  (string-append "mosh-" "unknown"))
+  (string-append "mosh-" (get-config "version")))