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:
parent
1c56860d50
commit
aced75e21a
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue