mes: boot-5: Add 'last' and 'close-port'.

* mes/module/mes/boot-5.scm (last): New procedure.
(close-port): New procedure.
This commit is contained in:
Timothy Sample 2022-04-26 11:03:51 -06:00
parent 1c56860d50
commit aced75e21a
1 changed files with 5 additions and 0 deletions

View File

@ -2,6 +2,7 @@
;;; GNU Mes --- Maxwell Equations of Software
;;; Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2022 Timothy Sample <samplet@ngyro.com>
;;;
;;; This file is part of GNU Mes.
;;;
@ -186,6 +187,10 @@
(mes-use-module (mes guile))
;; end boot-04.scm
(define (last lst) (car (last-pair lst)))
(define (close-port port) #t)
(mes-use-module (srfi srfi-9))
(define (defined? x)