core: String as array of bytes.
[mes.git] / tests / optargs.test
index 0207776e6e6aaf2d8e8082b766e890eaca70008a..06f1c53b91176b326ae4ce97b318cddf820a9c1f 100755 (executable)
@@ -24,7 +24,7 @@ exec ${MES-src/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
 ;;; along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (tests optargs)
-  #:use-module (ice-9 optargs)
+  #:use-module (mes optargs)
   #:use-module (mes mes-0)
   #:use-module (mes test))
 
@@ -71,15 +71,6 @@ exec ${MES-src/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
         (cons <locals> locals)
         (cons <text> text)))
 
-;; (define* (make o #:key (functions '()) (globals '()) (locals '()) (text '()))
-;;   (format (current-error-port) "make\n")
-;;   ((cond ((info? o)
-;;           (list <info>
-;;                 (cons <functions> functions)
-;;                 (cons <globals> globals)
-;;                 (cons <locals> locals)
-;;                 (cons <text> text))))))
-
 (define (.functions o)
   (assq-ref (cdr o) <functions>))
 
@@ -95,23 +86,6 @@ exec ${MES-src/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
 (define (info? o)
   (and (pair? o) (eq? (car o) <info>)))
 
-;; FIXME: psyntax+pmatch+optarg is broken; BINDINGS-> (g1234 g1234)
-;; iso (function function)
-;; (define (clone o . rest)
-;;   (pmatch o
-;;     ((<info>
-;;       (<functions> . ,functions)
-;;       (<globals> . ,globals)
-;;       (<locals> . ,locals)
-;;       (<text> . ,text))
-;;      (let-keywords rest
-;;                    #f
-;;                    ((functions functions)
-;;                     (globals globals)
-;;                     (locals locals)
-;;                     (text text))
-;;                    (make <info> #:functions functions #:globals globals #:locals locals #:text text)))))
-
 (define (clone o . rest)
   (cond ((info? o)
          (let ((functions (.functions o))