mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
16 lines
511 B
Scheme
16 lines
511 B
Scheme
;;;; Cyclone Scheme
|
|
;;;; https://github.com/justinethier/cyclone
|
|
;;;;
|
|
;;;; Copyright (c) 2014-2016, Justin Ethier
|
|
;;;; All rights reserved.
|
|
;;;;
|
|
;;;; A stub for the cxr library from r7rs.
|
|
;;;; At least for now, the actual cxr functions are primitives in the runtime,
|
|
;;;; so this library does not need to be imported to use them.
|
|
;;;;
|
|
(define-library (scheme cxr)
|
|
(export caaaaar)
|
|
(begin
|
|
;; Non-standard, this is just a placeholder
|
|
(define (caaaaar lis)
|
|
(car (car (car (car (car lis))))))))
|