;;;
\f
-
-;; {Simple Debugging Tools}
+;;; {Simple Debugging Tools}
;;
;;;
(set! apply (lambda (fun . args) (@apply fun (apply:nconc2last args))))
-(define (call-with-current-continuation proc) (@call-with-current-continuation proc))
+(define (call-with-current-continuation proc)
+ (@call-with-current-continuation proc))
\f
(and rem (pair? (cdr rem)) (cadr rem))))
\f
-
;;; {Print}
;;; MDJ 960919 <djurfeldt@nada.kth.se>: This code will probably be
;;; removed before the first release of Guile. Later releases may
(loop (cdr keys))))))
\f
+;;; {Non-polymorphic versions of POSIX functions}
+
(define (getgrnam name) (getgr name))
(define (getgrgid id) (getgr id))
(define (gethostbyaddr addr) (gethost addr))
;;;
\f
-;; This is how modules are printed.
-;; You can re-define it.
+;;; {Printing Modules}
+;; This is how modules are printed. You can re-define it.
;;
(define (%print-module mod port depth length style table)
(display "#<" port)
\f
-
-;; MODULE-REF -- exported
+;;; {MODULE-REF -- exported}
;;
;; Returns the value of a variable called NAME in MODULE or any of its
;; used modules. If there is no such variable, then if the optional third
(cons interface (delq! interface (module-uses module)))))
\f
-
-
-;;;;
;;; {Recursive Namespaces}
;;;
;;;
\f
-
-;;;;
-;;; #/app
+;;; {#/app}
;;;
;;; The root of conventionally named objects not directly in the top level.
;;;
(else (error "unrecognized defmodule argument" kws)))))
module))
\f
+;;; {Autoloading modules}
(define autoloads-in-progress '())
\f
-
+;;; {IOTA functions: generating lists of numbers}
(define (reverse-iota n) (if (> n 0) (cons (1- n) (reverse-iota (1- n))) '()))
(define (iota n) (list-reverse! (reverse-iota n)))
\f
+;;; {I/O functions for Tcl channels (disabled)}
;; (define in-ch (get-standard-channel TCL_STDIN))
;; (define out-ch (get-standard-channel TCL_STDOUT))
(lambda args #f)))
\f
+;;; {Calling Conventions}
(define-module (ice-9 calling))
;;;;
-;;; {Calling Conventions}
;;;
;;; This file contains a number of macros that support
;;; common calling conventions.
\f
+;;; {Implementation of COMMON LISP list functions for Scheme}
+
(define-module (ice-9 common-list))
;;"comlist.scm" Implementation of COMMON LISP list functions for Scheme
;promotional, or sales literature without prior written consent in
;each case.
-\f
-
-
;;;From: hugh@ear.mit.edu (Hugh Secker-Walker)
(define-public (make-list k . init)
(set! init (if (pair? init) (car init)))
(cons (car l) u)))))
\f
+;;; {Functions for browsing modules}
+
(define-module (ice-9 ls)
:use-module (ice-9 common-list))
-\f
-
;;;;
;;; local-definitions-in root name
;;; Returns a list of names defined locally in the named
(and parent (make-modules-in (current-module) parent))
(local-define name value)))
\f
+;;; {Queues}
+
(define-module (ice-9 q))
;;;; Copyright (C) 1995 Free Software Foundation, Inc.
;;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;;;
-\f
;;;;
;;; Q: Based on the interface to
;;;
;;; Written by Andrew Wilcox (awilcox@astro.psu.edu) on April 1, 1992.
;;;
-\f
;;;;
;;; {Q}
;;;
\f
-;;; installed-scm-file
+;;; {The runq data structure}
+
(define-module (ice-9 runq)
:use-module (ice-9 q))
-\f
-
;;;; Copyright (C) 1996 Free Software Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;;;
-
-\f
;;;;
-;;; {The runq data structure}
;;;
;;; One way to schedule parallel computations in a serial environment is
;;; to explicitly divide each task up into small, finite execution time,
st))
\f
+;;; {String Fun}
-;;; installed-scm-file
-\f
(define-module (ice-9 string-fun))
-\f
;;;;
-;;; {String Fun}
;;;
;;; Various string funcitons, particularly those that take
;;; advantage of the "shared substring" capability.
;;;
\f
-;;;;
-;;; {Dividing Strings Into Fields}
+;;; {String Fun: Dividing Strings Into Fields}
;;;
;;; The names of these functions are very regular.
;;; Here is a grammar of a call to one of these:
(else (ret (cons str fields))))))
\f
-;;;;
-;;; {String Prefix Predicates}
+;;; {String Fun: String Prefix Predicates}
;;;
;;; Very simple:
;;;
(define-public string-prefix=? (string-prefix-predicate string=?))
\f
-;;;;
-;;; {Strippers}
+;;; {String Fun: Strippers}
;;;
;;; <stripper> = sans-<removable-part>
;;;
(else str)))
\f
-;;;;
-;;; {has-trailing-newline?}
+;;; {String Fun: has-trailing-newline?}
;;;
(define-public (has-trailing-newline? str)
\f
-
+;;; {String Fun: with-regexp-parts}
(define-public (with-regexp-parts regexp fields str return fail)
(let ((parts (regexec regexp str fields)))
(apply return parts))))
\f
-
;;; {Load debug extension code if debug extensions present.}
;;;
;;; *fixme* This is a temporary solution.
(define-module (guile) :use-module (ice-9 debug)))
\f
-
;;; {Load thread code if threads are present.}
;;;
;;; *fixme* This is a temporary solution.
HCoop / bpt / guile.git / commitdiff