* module/ice-9/runq.scm (fork-strips): Remove.
* module/language/assembly.scm (*block-alignment*): Remove.
* module/language/assembly/disassemble.scm (disassemble-objects,
simplify): Remove.
* module/srfi/srfi-18.scm (mutex-owners): Remove.
* module/srfi/srfi-19.scm (leap-year?): Remove.
* module/system/base/compile.scm (dsu-sort): Remove.
* module/texinfo.scm (ascii->char): Remove.
* module/texinfo/html.scm (ignored?): Remove.
* module/texinfo/indexing.scm (def-name): Remove.
* module/texinfo/plain-text.scm (ignore): Remove.
;;;; runq.scm --- the runq data structure
;;;;
-;;;; Copyright (C) 1996, 2001, 2006 Free Software Foundation, Inc.
+;;;; Copyright (C) 1996, 2001, 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
;;; runq, strips of the parallel subtasks will run
;;; round-robin style.
;;;
-(define fork-strips (lambda args args))
;;;;
;;; Guile Virtual Machine Assembly
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2009, 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
(define *program-alignment* 8)
-(define *block-alignment* 8)
-
(define (addr+ addr code)
(fold (lambda (x len) (+ (byte-length x) len))
addr
(else
(error "bad load-program form" asm))))
-(define (disassemble-objects objs)
- (display "Objects:\n\n")
- (let ((len (vector-length objs)))
- (do ((n 0 (1+ n)))
- ((= n len) (newline))
- (print-info n (vector-ref objs n) #f #f))))
-
(define (disassemble-free-vars free-vars)
(display "Free variables:\n\n")
(let lp ((i 0))
;; i am format's daddy.
(define (print-info addr info extra src)
(format #t "~4@S ~32S~@[;; ~1{~@?~}~]~@[~61t at ~a~]\n" addr info extra src))
-
-(define (simplify x)
- (cond ((string? x)
- (cond ((string-index x #\newline) =>
- (lambda (i) (set! x (substring x 0 i)))))
- (cond ((> (string-length x) 16)
- (set! x (string-append (substring x 0 13) "..."))))))
- x)
-
;;; srfi-18.scm --- Multithreading support
-;; Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2008, 2009, 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
(define terminated-thread-exception (list 'terminated-thread-exception))
(define uncaught-exception (list 'uncaught-exception))
-(define mutex-owners (make-weak-key-hash-table))
(define object-names (make-weak-key-hash-table))
(define object-specifics (make-weak-key-hash-table))
(define thread-start-conds (make-weak-key-hash-table))
(or (= (modulo year 400) 0)
(and (= (modulo year 4) 0) (not (= (modulo year 100) 0)))))
-(define (leap-year? date)
- (priv:leap-year? (date-year date)))
-
;; Map 1-based month number M to number of days in the year before the
;; start of month M (in a non-leap year).
(define priv:month-assoc '((1 . 0) (2 . 31) (3 . 59) (4 . 90)
;;; High-level compiler interface
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2009, 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
(ensure-writable-dir (dirname dir))
(mkdir dir))))
-(define (dsu-sort list key less)
- (map cdr
- (stable-sort (map (lambda (x) (cons (key x) x)) list)
- (lambda (x y) (less (car x) (car y))))))
-
;;; This function is among the trickiest I've ever written. I tried many
;;; variants. In the end, simple is best, of course.
;;;
;;;; (texinfo) -- parsing of texinfo into SXML
;;;;
-;;;; Copyright (C) 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; Copyright (C) 2004, 2009 Andy Wingo <wingo at pobox dot com>
;;;; Copyright (C) 2001,2002 Oleg Kiselyov <oleg at pobox dot com>
;;;;
(read-char port)) ; skip \n that follows \r
line)))
-(define ascii->char integer->char)
-
(define (skip-whitespace port)
(skip-while '(#\space #\tab #\return #\newline) port))
;;;; (texinfo html) -- translating stexinfo into shtml
;;;;
-;;;; Copyright (C) 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com>
;;;;
;;;; This library is free software; you can redistribute it and/or
'(page setfilename setchapternewpage iftex ifinfo ifplaintext ifxml sp vskip
menu ignore syncodeindex comment c dircategory direntry top shortcontents
cindex printindex))
-(define (ignored? tag)
- (memq tag ignore-list))
(define rules
`((% *preorder* . ,(lambda args args)) ;; Keep these around...
;;;; (texinfo indexing) -- indexing stexinfo
;;;;
-;;;; Copyright (C) 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com>
;;;;
;;;; This library is free software; you can redistribute it and/or
#:use-module (srfi srfi-13)
#:export (stexi-extract-index))
-(define (def-name def)
- (cadr (assq 'name (cdadr def))))
-
(define defines
'(deftp defcv defivar deftypeivar defop deftypeop defmethod
deftypemethod defopt defvr defvar deftypevr deftypevar deffn
;;;; (texinfo plain-text) -- rendering stexinfo as plain text
;;;;
-;;;; Copyright (C) 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com>
;;;;
;;;; This library is free software; you can redistribute it and/or
(define (passthrough tag . body)
(stexi->plain-text body))
-(define (ignore . args)
- "")
-
(define (texinfo tag args . body)
(let ((title (chapter 'foo (arg-req 'title args))))
(string-append title (stexi->plain-text body))))