obsolete.stk 2.47 KB
Newer Older
eg's avatar
eg committed
1
;;;;
2 3
;;;; obsolete.stk       -- Definition of functions which are obsolete.
;;;;                       Function defined here are candidate to disappear.
4
;;;;
5
;;;; Copyright © 2002-2018 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
6 7
;;;;
;;;;
eg's avatar
eg committed
8 9 10 11
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
;;;; the Free Software Foundation; either version 2 of the License, or
;;;; (at your option) any later version.
12
;;;;
eg's avatar
eg committed
13 14 15 16
;;;; This program 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 General Public License for more details.
17
;;;;
eg's avatar
eg committed
18 19
;;;; You should have received a copy of the GNU General Public License
;;;; along with this program; if not, write to the Free Software
20
;;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
eg's avatar
eg committed
21
;;;; USA.
22
;;;;
eg's avatar
eg committed
23 24
;;;;           Author: Erick Gallesio [eg@essi.fr]
;;;;    Creation date: 11-Jun-2002 17:54 (eg)
25
;;;; Last file update:  5-Oct-2018 18:01 (eg)
eg's avatar
eg committed
26 27 28 29 30 31 32 33 34 35 36
;;;;



;;; 11-Jun-2002 (v0.53)
(define string-lower string-downcase)
(define string-upper string-upcase)

;;; 29-Aug-2004
(define (set-load-path! new-path)
  (format (current-error-port)
37
          "*** Obsolete function set-load-path!. Use load-path instead.\n")
eg's avatar
eg committed
38 39 40 41
  (load-path new-path))

(define (set-load-suffixes! suffixes)
  (format (current-error-port)
42
          "*** Obsolete function set-load-suffixes!. Use load-suffixes instead.\n")
eg's avatar
eg committed
43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
  (load-suffixes suffixes))

;; 23-Sep-2004 (v 0.59)
(define flush flush-output-port)

;; 19-May-2005 (v 0.62)
(define rewind-file-port port-rewind)


;; 27-Oct-2005 (v 0.71)
(define hash-table->list hash-table->alist)
(define hash-table-put! hash-table-set!)
(define (hash-table-get ht key :optional (default #f default?))
  (if default?
      (hash-table-ref/default ht key default)
      (hash-table-ref ht key)))
59 60 61 62 63 64 65
(define hash-table-remove!  hash-table-delete!)


;; 23-Nov-2006 (v 0.82)
(define (stklos-pragma . args)
  (error "Don't use anymore pragma, but compiler:warn-use-undef parameter"))
(define-reader-ctor 'pragma stklos-pragma)
Erick Gallesio's avatar
Erick Gallesio committed
66 67 68 69


;; 12-Feb-2007 (v0.83)
(define delete-directory remove-directory)
70 71

;; 05-May-2007 (v0.83)
72
;; current-second is now R7RS
73
;(define current-second current-seconds)
74

Erick's avatar
Erick committed
75 76
;; 04-Jun-2008 (v0.99)
(define %build-path-from-shell-variable build-path-from-shell-variable)
77 78 79

;; 05-Oct-2017 (v1.21)
(define copy-tree list-copy)