OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
guile
/
2.0
/
srfi
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-1.scm
28.41 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-10.scm
2.76 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-11.scm
5.38 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-111.scm
1.28 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-13.scm
2.72 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-14.scm
2.33 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-16.scm
1.84 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-17.scm
6.42 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-18.scm
11.91 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-19.scm
55.92 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-2.scm
1.08 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-26.scm
2.58 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-27.scm
2.98 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-28.scm
1.17 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-31.scm
1.36 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-34.scm
3.2 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-35.scm
11.98 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-37.scm
8.37 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-38.scm
8.19 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-39.scm
2.11 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-4
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-4.scm
4.99 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-41.scm
19.91 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-42
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-42.scm
1.75 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-43.scm
39.07 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-45.scm
3.5 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-6.scm
1.56 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-60.scm
2.12 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-64
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-64.scm
2.51 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-67
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-67.scm
2.31 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-69.scm
12.7 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-8.scm
1.08 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-88.scm
1.71 KB
10/22/2016 08:09:34 PM
rw-r--r--
📁
srfi-9
-
04/11/2020 07:13:11 AM
rwxr-xr-x
📄
srfi-9.scm
13.11 KB
10/22/2016 08:09:34 PM
rw-r--r--
📄
srfi-98.scm
1.57 KB
10/22/2016 08:09:34 PM
rw-r--r--
Editing: srfi-26.scm
Close
;;; srfi-26.scm --- specializing parameters without currying. ;; Copyright (C) 2002, 2006, 2010 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public ;; License as published by the Free Software Foundation; either ;; version 3 of the License, or (at your option) any later version. ;; ;; This library is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; Lesser General Public License for more details. ;; ;; You should have received a copy of the GNU Lesser General Public ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (define-module (srfi srfi-26) :export (cut cute)) (cond-expand-provide (current-module) '(srfi-26)) (define-syntax cut (lambda (stx) (syntax-case stx () ((cut slot0 slot1+ ...) (let loop ((slots #'(slot0 slot1+ ...)) (params '()) (args '())) (if (null? slots) #`(lambda #,(reverse params) #,(reverse args)) (let ((s (car slots)) (rest (cdr slots))) (with-syntax (((var) (generate-temporaries '(var)))) (syntax-case s (<> <...>) (<> (loop rest (cons #'var params) (cons #'var args))) (<...> (if (pair? rest) (error "<...> not on the end of cut expression")) #`(lambda #,(append (reverse params) #'var) (apply #,@(reverse (cons #'var args))))) (else (loop rest params (cons s args)))))))))))) (define-syntax cute (lambda (stx) (syntax-case stx () ((cute slots ...) (let loop ((slots #'(slots ...)) (bindings '()) (arguments '())) (define (process-hole) (loop (cdr slots) bindings (cons (car slots) arguments))) (if (null? slots) #`(let #,bindings (cut #,@(reverse arguments))) (syntax-case (car slots) (<> <...>) (<> (process-hole)) (<...> (process-hole)) (expr (with-syntax (((t) (generate-temporaries '(t)))) (loop (cdr slots) (cons #'(t expr) bindings) (cons #'t arguments)))))))))))