GNU logs - #30094, boring messages

Message sent to bug-guile@HIDDEN:

Subject: bug#30094: [wishlist] better support for alternative languages
Resent-From: Ricardo Wurmus <rekado@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guile@HIDDEN
Resent-Date: Fri, 12 Jan 2018 22:47:02 +0000
Resent-Message-ID: <handler.30094.B.151579718925050 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 30094 <at> debbugs.gnu.org
User-agent: mu4e 1.0-alpha3; emacs 25.3.1
From: Ricardo Wurmus <rekado@HIDDEN>
Date: Fri, 12 Jan 2018 23:45:36 +0100
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Message-ID: <876086wvan.fsf@HIDDEN>
Precedence: list
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>

Hi Guilers,

since Guile supports alternative language implementations like Wisp it
would be nice if it could interpret files that contain code written in
other languages, without having to specially cater to them.

If GUILE_LOAD_PATH contains a file =E2=80=9Cfoo.wisp=E2=80=9D written in Wi=
sp it would
be nice if Guile would automatically read it with the Wisp language.

The same applies to =E2=80=9Cload=E2=80=9D, which only supports Scheme code=
.

Another idea might be to adopt the =E2=80=9C#lang=E2=80=9D macro from Racke=
t to inform
Guile about the language that is used in the current file.

--
Ricardo

GPG: BCA6 89B6 3655 3801 C3C6  2150 197A 5888 235F ACAC
https://elephly.net

Message sent:

Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
Content-Type: text/plain; charset=utf-8
X-Loop: help-debbugs@HIDDEN
From: help-debbugs@HIDDEN (GNU bug Tracking System)
To: Ricardo Wurmus <rekado@HIDDEN>
Subject: bug#30094: Acknowledgement ([wishlist] better support for
 alternative languages)
Message-ID: <handler.30094.B.151579718925050.ack <at> debbugs.gnu.org>
References: <876086wvan.fsf@HIDDEN>
X-Gnu-PR-Message: ack 30094
X-Gnu-PR-Package: guile
Reply-To: 30094 <at> debbugs.gnu.org
Date: Fri, 12 Jan 2018 22:47:02 +0000

Thank you for filing a new bug report with debbugs.gnu.org.

This is an automatically generated reply to let you know your message
has been received.

Your message is being forwarded to the package maintainers and other
interested parties for their attention; they will reply in due course.

Your message has been sent to the package maintainer(s):
 bug-guile@HIDDEN

If you wish to submit further information on this problem, please
send it to 30094 <at> debbugs.gnu.org.

Please do not send mail to help-debbugs@HIDDEN unless you wish
to report a problem with the Bug-tracking system.

--=20
30094: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D30094
GNU Bug Tracking System
Contact help-debbugs@HIDDEN with problems

Message sent to bug-guile@HIDDEN:

Subject: bug#30094: proposed code for alt languages
References: <876086wvan.fsf@HIDDEN>
In-Reply-To: <876086wvan.fsf@HIDDEN>
Resent-From: Matt Wette <matt.wette@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guile@HIDDEN
Resent-Date: Sun, 19 Aug 2018 21:25:01 +0000
Resent-Message-ID: <handler.30094.B30094.153471388913041 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 30094 <at> debbugs.gnu.org
Cc: matt.wette@HIDDEN
From: Matt Wette <matt.wette@HIDDEN>
Message-ID: <acbfb695-70ac-9699-2e35-8b17389d6ae8@HIDDEN>
Date: Sun, 19 Aug 2018 14:24:40 -0700
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101
 Thunderbird/52.9.1
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="------------9BEE22966A3B393C65FD3FB6"
Content-Language: en-US
Precedence: list
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>

This is a multi-part message in MIME format.
--------------9BEE22966A3B393C65FD3FB6
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit

Hey all,

The attached code implements alternative languages. It is roughly a patch to
(system base compile).  It provides
1) extra procedures lang-from-port and lang-from-file
2) the global %file-extension-map
3) an altered version of compile-file

Behavior:
1) if the first line of the file is `#lang <lang>' then that is used as from
2) if the file-ending matches an entry in the a-list %file-extension-map the ref is used

Matt

In the following, compile.scm and ncompile.scm are trimmed to only contain
the procedure compile-file
mwette$ diff -c compile.scm ncompile.scm
*** compile.scm	Sun Aug 19 14:19:44 2018
--- ncompile.scm	Sun Aug 19 14:20:07 2018
***************
*** 1,10 ****
! (define* (compile-file file #:key
!                        (output-file #f)
!                        (from (current-language))
!                        (to 'bytecode)
!                        (env (default-environment from))
!                        (opts '())
!                        (canonicalization 'relative))
     (with-fluids ((%file-port-name-canonicalization canonicalization))
       (let* ((comp (or output-file (compiled-file-name file)
                        (error "failed to create path for auto-compiled file"
--- 1,10 ----
! (define* (ncompile-file file #:key
! 			(output-file #f)
! 			(from #f)
! 			(to 'bytecode)
! 			(env #f)
! 			(opts '())
! 			(canonicalization 'relative))
     (with-fluids ((%file-port-name-canonicalization canonicalization))
       (let* ((comp (or output-file (compiled-file-name file)
                        (error "failed to create path for auto-compiled file"
***************
*** 16,25 ****
   
         (ensure-directory (dirname comp))
         (call-with-output-file/atomic comp
!         (lambda (port)
!           ((language-printer (ensure-language to))
!            (read-and-compile in #:env env #:from from #:to to #:opts
!                              (cons* #:to-file? #t opts))
!            port))
!         file)
!       comp)))
--- 16,31 ----
   
         (ensure-directory (dirname comp))
         (call-with-output-file/atomic comp
! 	(lambda (port)
! 	  (let* ((from (or from
! 			   (lang-from-port in)
! 			   (lang-from-file file)
! 			   (current-language)))
! 		 (env (or env (default-environment from))))
! 	    (simple-format (current-error-port) "compiling from lang ~A\n" from)
! 	    ((language-printer (ensure-language to))
! 	     (read-and-compile in #:env env #:from from #:to to #:opts
! 			       (cons* #:to-file? #t opts))
! 	     port)))
! 	  file)
! 	comp)))


Here is ncompile:;; ncompile v180819b
;; usage:
;;   (ncompile-file "foo.m")
;; first checks for first line of the form
;;   #lang <from-language>
;; then uses file ending ".m" => nx-matlab


(define-module (ncompile)
   #:export (ncompile-file)
   )

(define (lang-from-port port)

   (define (release chl)
     (let loop ((chl chl))
       (unless (null? chl)
	(unread-char (car chl) port)
	(loop (cdr chl))))
     #f)

   (define (return chl)
     (string->symbol (reverse-list->string chl)))
	
   (let loop ((cl '()) (st 0) (kl '(#\# #\l #\a #\n #\g)) (ch (read-char port)))
     (case st
       ((0) (cond			; read `#lang'
	    ((eof-object? ch) (release cl))
	    ((null? kl) (loop cl 1 kl ch))
	    ((char=? ch (car kl))
	     (loop (cons ch cl) st (cdr kl) (read-char port)))
	    (else (release (cons ch cl)))))
       ((1) (cond			; skip spaces
	    ((eof-object? ch) (release cl))
	    ((char=? ch #\space) (loop (cons ch cl) st kl (read-char port)))
	    (else (loop cl 2 '() ch))))
       ((2) (cond			; collect lang name
	    ((eof-object? ch) (return kl))
	    ((char=? ch #\newline) (return kl))
	    ((char-whitespace? ch) (loop cl 3 kl ch))
	    (else (loop cl st (cons ch kl) (read-char port)))))
       ((3) (cond
	    ((eof-object? ch) (return kl))
	    ((char=? ch #\newline) (return kl))
	    (else (loop cl st kl (read-char port))))))))

(define %file-extension-map
   '(("scm" . scheme)
     ("el" . elisp)
     ("m" . nx-matlab)
     ("js" . ecmascript)))

(define* (lang-from-file file)
   (let* ((ix (string-rindex file #\.))
	(ext (and ix (substring file (1+ ix)))))
     (and ext (assoc-ref %file-extension-map ext))))

(define call-with-output-file/atomic
   (@@ (system base compile) call-with-output-file/atomic))
(define language-printer
   (@ (system base language) language-printer))
(define ensure-language
   (@@ (system base compile) ensure-language))
(define ensure-directory
   (@@ (system base compile) ensure-directory))
(define read-and-compile
   (@@ (system base compile) read-and-compile))
(define compiled-file-name
   (@@ (system base compile) compiled-file-name))
(define default-environment
   (@@ (system base compile) default-environment))

(define* (ncompile-file file #:key
			(output-file #f)
			(from #f)
			(to 'bytecode)
			(env #f)
			(opts '())
			(canonicalization 'relative))
   (with-fluids ((%file-port-name-canonicalization canonicalization))
     (let* ((comp (or output-file (compiled-file-name file)
                      (error "failed to create path for auto-compiled file"
                             file)))
            (in (open-input-file file))
            (enc (file-encoding in)))
       ;; Choose the input encoding deterministically.
       (set-port-encoding! in (or enc "UTF-8"))

       (ensure-directory (dirname comp))
       (call-with-output-file/atomic comp
	(lambda (port)
	  (let* ((from (or from
			   (lang-from-port in)
			   (lang-from-file file)
			   (current-language)))
		 (env (or env (default-environment from))))
	    (simple-format (current-error-port) "compiling from lang ~A\n" from)
	    ((language-printer (ensure-language to))
	     (read-and-compile in #:env env #:from from #:to to #:opts
			       (cons* #:to-file? #t opts))
	     port)))
	  file)
	comp)))

;; Local Variables:
;; eval: (put 'call-with-output-file/atomic 'scheme-indent-function 1)
;; End:
;; --- last line ---




--------------9BEE22966A3B393C65FD3FB6
Content-Type: text/x-scheme;
 name="ncompile.scm"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="ncompile.scm"

;; ncompile v180819b
;; usage:
;;   (ncompile-file "foo.m")
;; first checks for first line of the form
;;   #lang <from-language>
;; then uses file ending ".m" => nx-matlab


(define-module (ncompile)
  #:export (ncompile-file)
  )

(define (lang-from-port port)

  (define (release chl)
    (let loop ((chl chl))
      (unless (null? chl)
	(unread-char (car chl) port)
	(loop (cdr chl))))
    #f)

  (define (return chl)
    (string->symbol (reverse-list->string chl)))
	  
  (let loop ((cl '()) (st 0) (kl '(#\# #\l #\a #\n #\g)) (ch (read-char port)))
    (case st
      ((0) (cond			; read `#lang'
	    ((eof-object? ch) (release cl))
	    ((null? kl) (loop cl 1 kl ch))
	    ((char=? ch (car kl))
	     (loop (cons ch cl) st (cdr kl) (read-char port)))
	    (else (release (cons ch cl)))))
      ((1) (cond			; skip spaces
	    ((eof-object? ch) (release cl))
	    ((char=? ch #\space) (loop (cons ch cl) st kl (read-char port)))
	    (else (loop cl 2 '() ch))))
      ((2) (cond			; collect lang name
	    ((eof-object? ch) (return kl))
	    ((char=? ch #\newline) (return kl))
	    ((char-whitespace? ch) (loop cl 3 kl ch))
	    (else (loop cl st (cons ch kl) (read-char port)))))
      ((3) (cond
	    ((eof-object? ch) (return kl))
	    ((char=? ch #\newline) (return kl))
	    (else (loop cl st kl (read-char port))))))))

(define %file-extension-map
  '(("scm" . scheme)
    ("el" . elisp)
    ("m" . nx-matlab)
    ("js" . ecmascript)))

(define* (lang-from-file file)
  (let* ((ix (string-rindex file #\.))
	(ext (and ix (substring file (1+ ix)))))
    (and ext (assoc-ref %file-extension-map ext))))

(define call-with-output-file/atomic
  (@@ (system base compile) call-with-output-file/atomic))
(define language-printer
  (@ (system base language) language-printer))
(define ensure-language
  (@@ (system base compile) ensure-language))
(define ensure-directory
  (@@ (system base compile) ensure-directory))
(define read-and-compile
  (@@ (system base compile) read-and-compile))
(define compiled-file-name
  (@@ (system base compile) compiled-file-name))
(define default-environment
  (@@ (system base compile) default-environment))

(define* (ncompile-file file #:key
			(output-file #f)
			(from #f)
			(to 'bytecode)
			(env #f)
			(opts '())
			(canonicalization 'relative))
  (with-fluids ((%file-port-name-canonicalization canonicalization))
    (let* ((comp (or output-file (compiled-file-name file)
                     (error "failed to create path for auto-compiled file"
                            file)))
           (in (open-input-file file))
           (enc (file-encoding in)))
      ;; Choose the input encoding deterministically.
      (set-port-encoding! in (or enc "UTF-8"))

      (ensure-directory (dirname comp))
      (call-with-output-file/atomic comp
	(lambda (port)
	  (let* ((from (or from
			   (lang-from-port in)
			   (lang-from-file file)
			   (current-language)))
		 (env (or env (default-environment from))))
	    (simple-format (current-error-port) "compiling from lang ~A\n" from)
	    ((language-printer (ensure-language to))
	     (read-and-compile in #:env env #:from from #:to to #:opts
			       (cons* #:to-file? #t opts))
	     port)))
	  file)
	comp)))

;; Local Variables:
;; eval: (put 'call-with-output-file/atomic 'scheme-indent-function 1)
;; End:
;; --- last line ---

--------------9BEE22966A3B393C65FD3FB6--

Message sent to bug-guile@HIDDEN:

Subject: bug#30094: patch for adding external lang support
References: <876086wvan.fsf@HIDDEN>
In-Reply-To: <876086wvan.fsf@HIDDEN>
Resent-From: Matt Wette <matt.wette@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guile@HIDDEN
Resent-Date: Tue, 04 Sep 2018 13:44:01 +0000
Resent-Message-ID: <handler.30094.B30094.153606862927720 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 30094 <at> debbugs.gnu.org
From: Matt Wette <matt.wette@HIDDEN>
Message-ID: <8cd59533-5fdb-7ae0-f37b-bc9117044161@HIDDEN>
Date: Tue, 4 Sep 2018 06:43:39 -0700
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101
 Thunderbird/52.9.1
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Content-Language: en-US
Precedence: list
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>

Here is a patch against 2.2.4.  It compiled and passed "make check".
Still to go: some test-suite scripts.


--- module/system/base/compile.scm-orig	2016-08-01 04:32:31.000000000 -0700
+++ module/system/base/compile.scm	2018-09-04 06:27:53.056330281 -0700
@@ -28,6 +28,7 @@
    #:use-module (ice-9 receive)
    #:export (compiled-file-name
              compile-file
+	    add-extension
              compile-and-load
              read-and-compile
              compile
@@ -132,11 +133,65 @@
           (and (false-if-exception (ensure-directory (dirname f)))
                f))))
  
+;; --- new ---------------------------
+
+(define (lang-from-port port)
+
+  (define (release chl)
+    (let loop ((chl chl))
+      (unless (null? chl)
+	(unread-char (car chl) port)
+	(loop (cdr chl))))
+    #f)
+
+  (define (return chl)
+    (string->symbol (reverse-list->string chl)))
+	
+  (let loop ((cl '()) (st 0) (kl '(#\# #\l #\a #\n #\g)) (ch (read-char port)))
+    (case st
+      ((0) (cond			; read `#lang'
+	    ((eof-object? ch) (release cl))
+	    ((null? kl) (loop cl 1 kl ch))
+	    ((char=? ch (car kl))
+	     (loop (cons ch cl) st (cdr kl) (read-char port)))
+	    (else (release (cons ch cl)))))
+      ((1) (cond			; skip spaces
+	    ((eof-object? ch) (release cl))
+	    ((char=? ch #\space) (loop (cons ch cl) st kl (read-char port)))
+	    (else (loop cl 2 '() ch))))
+      ((2) (cond			; collect lang name
+	    ((eof-object? ch) (return kl))
+	    ((char=? ch #\newline) (return kl))
+	    ((char-whitespace? ch) (loop cl 3 kl ch))
+	    (else (loop cl st (cons ch kl) (read-char port)))))
+      ((3) (cond
+	    ((eof-object? ch) (return kl))
+	    ((char=? ch #\newline) (return kl))
+	    (else (loop cl st kl (read-char port))))))))
+
+(define %file-extension-map
+  '(("scm" . scheme)
+    ("el" . elisp)
+    ("js" . ecmascript)))
+
+(define (add-extension tag lang)
+  (unless (and (string? tag) (symbol? lang))
+    (error "expecting string symbol"))
+  (set! %file-extension-map (acons tag lang %file-extension-map)))
+
+(define* (lang-from-file file)
+  (let* ((ix (string-rindex file #\.))
+	(ext (and ix (substring file (1+ ix)))))
+    (and ext (assoc-ref %file-extension-map ext))))
+
+
+;; -----------------------------------
+
  (define* (compile-file file #:key
                         (output-file #f)
-                       (from (current-language))
+                       (from #f)
                         (to 'bytecode)
-                       (env (default-environment from))
+                       (env #f)
                         (opts '())
                         (canonicalization 'relative))
    (with-fluids ((%file-port-name-canonicalization canonicalization))
@@ -151,11 +206,17 @@
        (ensure-directory (dirname comp))
        (call-with-output-file/atomic comp
          (lambda (port)
-          ((language-printer (ensure-language to))
-           (read-and-compile in #:env env #:from from #:to to #:opts
-                             (cons* #:to-file? #t opts))
-           port))
-        file)
+	  (let* ((from (or from
+			   (lang-from-port in)
+			   (lang-from-file file)
+			   (current-language)))
+		 (env (or env (default-environment from))))
+	    (simple-format (current-error-port) "compiling from lang ~A\n" from)
+	    ((language-printer (ensure-language to))
+	     (read-and-compile in #:env env #:from from #:to to #:opts
+			       (cons* #:to-file? #t opts))
+	     port)))
+	file)
        comp)))
  
  (define* (compile-and-load file #:key (from (current-language)) (to 'value)

Message sent to bug-guile@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: bug#30094: patch for adding external lang support
Resent-From: Matt Wette <matt.wette@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guile@HIDDEN
Resent-Date: Tue, 04 Sep 2018 14:01:01 +0000
Resent-Message-ID: <handler.30094.B30094.153606965829907 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 30094
X-GNU-PR-Package: guile
X-GNU-PR-Keywords: 
To: 30094 <at> debbugs.gnu.org
Received: via spool by 30094-submit <at> debbugs.gnu.org id=B30094.153606965829907
          (code B ref 30094); Tue, 04 Sep 2018 14:01:01 +0000
Received: (at 30094) by debbugs.gnu.org; 4 Sep 2018 14:00:58 +0000
Received: from localhost ([127.0.0.1]:45891 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1fxBt3-0007mJ-SI
	for submit <at> debbugs.gnu.org; Tue, 04 Sep 2018 10:00:58 -0400
Received: from mail-pf1-f173.google.com ([209.85.210.173]:36637)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <matt.wette@HIDDEN>) id 1fxBt1-0007m6-8A
 for 30094 <at> debbugs.gnu.org; Tue, 04 Sep 2018 10:00:55 -0400
Received: by mail-pf1-f173.google.com with SMTP id b11-v6so1755791pfo.3
 for <30094 <at> debbugs.gnu.org>; Tue, 04 Sep 2018 07:00:55 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025;
 h=subject:from:to:references:message-id:date:user-agent:mime-version
 :in-reply-to:content-transfer-encoding:content-language;
 bh=LPUxPuUIXHUcSV9n1I+46nErsPikAEKBahGJVUI6wsA=;
 b=tda9kxg5zbM+0oXvNpaygvribvg7Up9fymAQd6Z827UmRvEWXzh+ajEmBAg3wwp992
 m06FmQFl1xZQVg+GCo8mEkyawGzgVakyr/aHTFcWbyeZrV/Lb2+VY7x0IXEb+JkuGVBo
 oedF/FFofGIgZsOxWeNmrG75B8ZjPHDalv1ZgL9qV3hddSts6Ae8itV8eqLME4jfTPQj
 Al1PSN+ztPi6Vx5ZuhO+oMnWGG6SHJNmiaSscF0MZs9xMB6hMkG8dLxwSaqpztn1rJpj
 eJgSrMKRb2hYmpNTr5akV5lUEA5ohSt8h9yVzxpj4DGpsv9Br8PFIipOlp9v17hswz67
 qN9w==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20161025;
 h=x-gm-message-state:subject:from:to:references:message-id:date
 :user-agent:mime-version:in-reply-to:content-transfer-encoding
 :content-language;
 bh=LPUxPuUIXHUcSV9n1I+46nErsPikAEKBahGJVUI6wsA=;
 b=MNMePqgr0KCGYM3q1EdsAli4Q9LMP4K8KGlWJ0WH4M4S9JP9z9QAfFXbwTcx8t4DTf
 waA4Y400bL3s8zWdtaBl41hIp7Y0FTAnV4wqABRD/DFL+xV3ZFRPRlSjiy3g2LEIojkk
 rPiJ9d75r2IxsZa9swY2MuAQ5qq4UYyyqMQidpvlQAWdayD2kbX/c6mpxoXClJWqxeFK
 1FEyKggAVVxknFtVTxKfwgOIFdnWh2mUThaKfnZGZQNsLDo75Tmn0R4S6InsRcE4o45C
 4O8aulRD1xCgHaEBSYxL0GNTYy6dmv+dysvkYfnhlJ0TF8Q3yBPAd70Lig7X8SBOJ+CD
 HrzA==
X-Gm-Message-State: APzg51Aa2Zi83/QwSd+rL5pZLzgv0V3svpL5+Yq4xWFrBWtBa5aBafvO
 hGvc4LbaKXYqGqhrbFKB4HtwI0cr
X-Google-Smtp-Source: ANB0VdZD4JXo4kpYinJgshMVqpszyF4WvU7WLEbvWrXDpeOJY1NqbczBYDrwetJ0LhsARc0GrvU32Q==
X-Received: by 2002:a62:3703:: with SMTP id
 e3-v6mr34723219pfa.117.1536069648344; 
 Tue, 04 Sep 2018 07:00:48 -0700 (PDT)
Received: from [192.168.2.183] (216-165-229-229.championbroadband.com.
 [216.165.229.229])
 by smtp.gmail.com with ESMTPSA id j22-v6sm28531014pfh.45.2018.09.04.07.00.47
 for <30094 <at> debbugs.gnu.org>
 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);
 Tue, 04 Sep 2018 07:00:47 -0700 (PDT)
From: Matt Wette <matt.wette@HIDDEN>
References: <8cd59533-5fdb-7ae0-f37b-bc9117044161@HIDDEN>
Message-ID: <22079c48-08cc-77c0-0397-752acbcc738e@HIDDEN>
Date: Tue, 4 Sep 2018 07:00:46 -0700
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101
 Thunderbird/52.9.1
MIME-Version: 1.0
In-Reply-To: <8cd59533-5fdb-7ae0-f37b-bc9117044161@HIDDEN>
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Content-Language: en-US
X-Spam-Score: 0.0 (/)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)

There is a left-over simple-format statement which should be removed.

Message sent to bug-guile@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: bug#30094: test script
References: <876086wvan.fsf@HIDDEN>
In-Reply-To: <876086wvan.fsf@HIDDEN>
Resent-From: Matt Wette <matt.wette@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guile@HIDDEN
Resent-Date: Wed, 05 Sep 2018 01:36:01 +0000
Resent-Message-ID: <handler.30094.B30094.153611133222334 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 30094
X-GNU-PR-Package: guile
X-GNU-PR-Keywords: 
To: 30094 <at> debbugs.gnu.org
Received: via spool by 30094-submit <at> debbugs.gnu.org id=B30094.153611133222334
          (code B ref 30094); Wed, 05 Sep 2018 01:36:01 +0000
Received: (at 30094) by debbugs.gnu.org; 5 Sep 2018 01:35:32 +0000
Received: from localhost ([127.0.0.1]:46180 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1fxMjE-0005oA-Ei
	for submit <at> debbugs.gnu.org; Tue, 04 Sep 2018 21:35:32 -0400
Received: from mail-pg1-f170.google.com ([209.85.215.170]:36751)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <matt.wette@HIDDEN>) id 1fxMjB-0005nw-TV
 for 30094 <at> debbugs.gnu.org; Tue, 04 Sep 2018 21:35:30 -0400
Received: by mail-pg1-f170.google.com with SMTP id d1-v6so2559454pgo.3
 for <30094 <at> debbugs.gnu.org>; Tue, 04 Sep 2018 18:35:29 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025;
 h=from:subject:to:message-id:date:user-agent:mime-version
 :content-transfer-encoding:content-language;
 bh=+zQglOxhdjZah7U2gh1Fm0idIVHbk76fzxFaWAQ5yzM=;
 b=TwssboCukGbvx5sfP9uxJ4i9whZjg18m2wSu5TejqKYg7bp+eVCDW8py3fsSC+/TBd
 avA2GCusYAHKGyvrY2qOg5bkeyDuRzXpeuqdOl1JWLFINg4IyDi5mTVtXnQRZ14js+mZ
 718bnygUIEdlRABwlqtnY3QhqvozIseZnkErLqDjtaxVdS12MyN0qQUOpHDVmRZvmzZn
 LuC3Umdc/UZTAh28mRYIApXNuXMwyicjyo6hRbuZKLDZSpeDYCKHPazckYuyMTKuUG2b
 mDJ9P6c3MRJraVaRYC0l+pXWmhAw9rpMfF4j4HyOVVCo+8bWTNUNtwkM4YeSYs7UVztB
 t0jg==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20161025;
 h=x-gm-message-state:from:subject:to:message-id:date:user-agent
 :mime-version:content-transfer-encoding:content-language;
 bh=+zQglOxhdjZah7U2gh1Fm0idIVHbk76fzxFaWAQ5yzM=;
 b=iBLI9mkYr1SSS3xRlYkaW2smZ9vzz+YXSsaxBj/355Pew0EsxUERZ7W+L1OFPAFGu4
 6VSVb5dp4tkQgVtRet1RbqO//HB4FvvUgBadiQk+Vg/xY41jPcey3RyQuo3ThmY3Dxft
 ZILXRa+kKbYHBCRVAEq6rcisCyEG5x5k9y63aJwUSPMkOQQBaKNYLQhWQZE8Q2hOVb8P
 SfhbKW7HFwRngzLjdZC4q95fkvf7WHM3uGU23rXyo4rqmB4IPk9qLrx//tc/Lyx3e5Hq
 6AG8MdzRaru4cJ5x8DqciH3F7hbI7/2Q+8WQTB4LXV25Q37u8m3ZJwwGmOLdLVV7Cqzf
 DrDg==
X-Gm-Message-State: APzg51COH7WaXx/GvkqHA657D697CpFHinPH3myQkGiZVy6h+MmBCxT3
 ksX0teYjrlJTb68TY3m3iHFYDT4V
X-Google-Smtp-Source: ANB0VdZyi0HLOqkokO4lGbgDgsP2bIqkaMM2ZcXQbrjdHcbxiYXVaIljiUjbqDehJ06NlDXKayG9Vw==
X-Received: by 2002:a63:d857:: with SMTP id
 k23-v6mr34082309pgj.106.1536111323621; 
 Tue, 04 Sep 2018 18:35:23 -0700 (PDT)
Received: from [192.168.2.183] (216-165-229-229.championbroadband.com.
 [216.165.229.229])
 by smtp.gmail.com with ESMTPSA id f4-v6sm417876pfj.46.2018.09.04.18.35.22
 for <30094 <at> debbugs.gnu.org>
 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);
 Tue, 04 Sep 2018 18:35:23 -0700 (PDT)
From: Matt Wette <matt.wette@HIDDEN>
Message-ID: <e750030e-2144-a3d3-2d70-16936f58dc35@HIDDEN>
Date: Tue, 4 Sep 2018 18:35:21 -0700
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101
 Thunderbird/52.9.1
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Content-Language: en-US
X-Spam-Score: 0.0 (/)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)

The following test script works with the 2.2.4 patch provided.
elisp tests don't work well but I think that is elisp issue.
This stuff works with my own developed.

;;; load-lang.test -			-*- scheme -*-

(define-module (test-suite test-load-lang)
   #:use-module (test-suite lib))

(define tmp-dir (getcwd))

(define (data-file-name filename)
   (in-vicinity tmp-dir filename))

(with-test-prefix "load/lang"

   (pass-if "using #lang"
     (let ((src-file (data-file-name "load1js")))
       (with-output-to-file src-file
	(lambda ()
	  (display "#lang ecmascript\n")
	  (display "function js_1pl(b) { return 1 + b; }\n")))
       (load src-file)
       (delete-file src-file)
       (= (js_1pl 2) 3)))

   (pass-if "using dot-js"
     (let ((src-file (data-file-name "load2.js")))
       (with-output-to-file src-file
	(lambda ()
	  (display "function js_2pl(b) { return 2 + b; }\n")))
       (load src-file)
       (delete-file src-file)
       (= (js_2pl 2) 4)))

   )

;; --- last line ---

Message sent to bug-guile@HIDDEN:

X-Loop: help-debbugs@HIDDEN
Subject: bug#30094: load-lang patch
References: <876086wvan.fsf@HIDDEN>
In-Reply-To: <876086wvan.fsf@HIDDEN>
Resent-From: Matt Wette <matt.wette@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guile@HIDDEN
Resent-Date: Sun, 23 Sep 2018 17:30:01 +0000
Resent-Message-ID: <handler.30094.B30094.153772375028922 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 30094
X-GNU-PR-Package: guile
X-GNU-PR-Keywords: 
To: 30094 <at> debbugs.gnu.org
Received: via spool by 30094-submit <at> debbugs.gnu.org id=B30094.153772375028922
          (code B ref 30094); Sun, 23 Sep 2018 17:30:01 +0000
Received: (at 30094) by debbugs.gnu.org; 23 Sep 2018 17:29:10 +0000
Received: from localhost ([127.0.0.1]:51052 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1g48By-0007WQ-4H
	for submit <at> debbugs.gnu.org; Sun, 23 Sep 2018 13:29:10 -0400
Received: from mail-pf1-f180.google.com ([209.85.210.180]:40974)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <matt.wette@HIDDEN>) id 1g48Bw-0007WC-Lw
 for 30094 <at> debbugs.gnu.org; Sun, 23 Sep 2018 13:29:09 -0400
Received: by mail-pf1-f180.google.com with SMTP id h79-v6so8052964pfk.8
 for <30094 <at> debbugs.gnu.org>; Sun, 23 Sep 2018 10:29:08 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025;
 h=to:from:subject:message-id:date:user-agent:mime-version
 :content-transfer-encoding:content-language;
 bh=RdIW0LjkUW/CKP7Hl+1c9funA+X6fVZ59WANbhcMBKA=;
 b=KLZxlM4WYyEvvn9RBdy3INyYoheKvufKR5inz8v8Ww0K7M4PPoL9059mjupChZyrfV
 3m+33gDYti+MQU8o1DT7Z9uN38VNLh8vh2Y+S2JL5yay4c//FkIDfQjZDeAIrvhHhHg5
 Yc7NTzFb0JyNpuiYW7SH0FMRdNZOSYCrOqPKuB1Olj6x1lnTFhD7/wl064/NXpixIk08
 ixT1PjOCw85KT/911PujgyZzYmCT0w5Fwu6PSUKcdpp5ofUZOTWcLbWrtmY+VWbumFKV
 GQChvSFsjFkdU/uV7WDTykYDzSvK+xeqy0W/fDib0nljsMCq0KtLrpcAlUagH9QXYK2+
 RaDA==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20161025;
 h=x-gm-message-state:to:from:subject:message-id:date:user-agent
 :mime-version:content-transfer-encoding:content-language;
 bh=RdIW0LjkUW/CKP7Hl+1c9funA+X6fVZ59WANbhcMBKA=;
 b=p/x/RCiCIs2mrW0p8CtpKVFNgxbWarDIlizzI3Hj3bMm5PAVhqxW/uKcKUKehop59m
 GXW651dSTm/YxQS+OdXn4+/ajcuI3o8QVD+WbMOPukOx6v4P3iG0v9ll3pkV9X5Qj77N
 Rch+lB0+knVAv/G/2wkWIs2HBPjCzzQ4I0X3S7tTluapmp0FDMDX8e+RmrPTsDCwcrxg
 qm0c3JPO1JtX0fBEBfeL2J3aq7fnj8h+lqo9EqkfAJQPU0UiN0WWGNFpM7tFRmGxMlkA
 QVzii2xWRp9hbmIpxgr3je9kxMBTYfIIGIpV9X0HgM04CX4TIRrPPLxkiBV4NHQabqgy
 X3xg==
X-Gm-Message-State: ABuFfojDHylh4mFKgm2tJiZEK7+Wv4KxKlzvu1n9fQx6fGz7t1XB91Xw
 Vnx+O34FhKfZrxl9CGPUOmMQG6ov
X-Google-Smtp-Source: ACcGV61QdxYwYl8vjy7pyOleJE67b3+RIjmZbpolj0XHrR8krL+Xmh1fHuWadBQhskD5Lz5LlbFbDg==
X-Received: by 2002:a63:ca09:: with SMTP id
 n9-v6mr6492578pgi.287.1537723742398; 
 Sun, 23 Sep 2018 10:29:02 -0700 (PDT)
Received: from [192.168.2.183] (216-165-229-229.championbroadband.com.
 [216.165.229.229])
 by smtp.gmail.com with ESMTPSA id p19-v6sm57079536pgh.60.2018.09.23.10.29.01
 for <30094 <at> debbugs.gnu.org>
 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);
 Sun, 23 Sep 2018 10:29:02 -0700 (PDT)
From: Matt Wette <matt.wette@HIDDEN>
Message-ID: <bcd33623-9dc4-4534-338b-052dc6be3e62@HIDDEN>
Date: Sun, 23 Sep 2018 10:29:01 -0700
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101
 Thunderbird/52.9.1
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Content-Language: en-US
X-Spam-Score: -0.0 (/)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)

I am now posting patch for this to github.com mwette guile-contrib 
patch-2.2.4 load.patch .

Last modified: Mon, 25 Nov 2019 12:00:02 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.