~ chicken-core (chicken-5) acd400274007e759e462a39cd79c1a5bef86ba8d

commit acd400274007e759e462a39cd79c1a5bef86ba8d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Dec 22 04:37:19 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Dec 22 04:37:19 2010 -0500

    removed deprecated time->milliseconds, milliseconds->time, project and global-* procedures from lolevel; removed deprecated -W/-windows csc option

diff --git a/csc.scm b/csc.scm
index b0f5f59d..55c4c685 100644
--- a/csc.scm
+++ b/csc.scm
@@ -633,8 +633,7 @@ EOF
 		(use-private-repository))
 	       ((-no-elevation)
 		(set! generate-manifest #t))
-	       [(-gui
-		 -windows |-W|)		;DEPRECATED
+	       [(-gui)
 		(set! gui #t)
 		(set! compile-options (cons "-DC_GUI" compile-options))
 		(set! object-files 
diff --git a/data-structures.import.scm b/data-structures.import.scm
index 2adfd69b..7ace4167 100644
--- a/data-structures.import.scm
+++ b/data-structures.import.scm
@@ -58,7 +58,6 @@
    none?
    noop					;DEPRECATED
    o
-   project
    queue->list
    queue-add!
    queue-empty?
diff --git a/data-structures.scm b/data-structures.scm
index 3b54967f..acb78afc 100644
--- a/data-structures.scm
+++ b/data-structures.scm
@@ -42,9 +42,6 @@ EOF
 
 (define (identity x) x)
 
-(define (project n)			; DEPRECATED
-  (lambda args (list-ref args n)) )
-
 (define (conjoin . preds)
   (lambda (x)
     (let loop ([preds preds])
diff --git a/lolevel.import.scm b/lolevel.import.scm
index 9e9ae290..22fadd91 100644
--- a/lolevel.import.scm
+++ b/lolevel.import.scm
@@ -34,10 +34,6 @@
    extend-procedure
    extended-procedure?
    free
-   global-bound?			;DEPRECATED
-   global-make-unbound!			;DEPRECATED
-   global-ref				;DEPRECATED
-   global-set!				;DEPRECATED
    locative->object
    locative-ref
    locative-set!
diff --git a/lolevel.scm b/lolevel.scm
index 7c0d745c..730f84be 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -626,30 +626,6 @@ EOF
     new ) )
 
 
-;;; Access computed globals: 
-
-;;DEPRECATED
-(define (global-ref sym)
-  (##sys#check-symbol sym 'global-ref)
-  (##core#inline "C_retrieve" sym) )
-
-;;DEPRECATED
-(define (global-set! sym x)
-  (##sys#check-symbol sym 'global-set!)
-  (##sys#setslot sym 0 x) )
-
-;;DEPRECATED
-(define (global-bound? sym)
-  (##sys#check-symbol sym 'global-bound?)
-  (##sys#symbol-has-toplevel-binding? sym) )
-
-;;DEPRECATED
-(define (global-make-unbound! sym)
-  (##sys#check-symbol sym 'global-make-unbound!)
-  (##sys#setslot sym 0 (##sys#slot '##sys#arbitrary-unbound-symbol 0))
-  sym )
-
-
 ;;; pointer vectors
 
 (define make-pointer-vector
diff --git a/srfi-18.import.scm b/srfi-18.import.scm
index 204062ff..8c6e0fd9 100644
--- a/srfi-18.import.scm
+++ b/srfi-18.import.scm
@@ -39,7 +39,6 @@
    make-condition-variable
    make-mutex
    make-thread
-   milliseconds->time			; DEPRECATED
    mutex-lock!
    mutex-name
    mutex-specific
@@ -49,8 +48,6 @@
    mutex?
    raise
    seconds->time
-   srfi-18:current-time
-   srfi-18:time?
    terminated-thread-exception?
    thread-join!
    thread-name
@@ -68,7 +65,6 @@
    thread-wait-for-i/o!
    thread-yield!
    thread?
-   time->milliseconds			; DEPRECATED
    time->seconds
    time?
    uncaught-exception-reason
diff --git a/srfi-18.scm b/srfi-18.scm
index 36b4addd..a99dfff0 100644
--- a/srfi-18.scm
+++ b/srfi-18.scm
@@ -61,18 +61,10 @@
   (##sys#check-structure tm 'time 'time->seconds)
   (fp/ (##sys#slot tm 1) 1000.0))
 
-(define (time->milliseconds tm)		; DEPRECATED
-  (##sys#check-structure tm 'time 'time->milliseconds)
-  (##sys#slot tm 1))
-
 (define (seconds->time n)
   (##sys#check-number n 'seconds->time)
   (##sys#make-structure 'time (fp* (##sys#exact->inexact n) 1000.0)))
 
-(define (milliseconds->time nms)	; DEPRECATED
-  (##sys#check-number nms 'milliseconds->time)
-  (##sys#make-structure 'time (##sys#exact->inexact nms)))
-
 (define (time? x) (##sys#structure? x 'time))