Update doc/.gitignore, src/TAGS. Punt without-timer-interrupts.

diff --git a/doc/.gitignore b/doc/.gitignore
index a9438799a60d889a8488dbc8a4c6f378f824d7a3..47ce4cee474f6cd2be1db47cb55134f51e9570d2 100644 (file)
--- a/doc/.gitignore
+++ b/doc/.gitignore
@@ -20,6 +20,7 @@
 *.pdf
 *.ps
 /make-common
+/ffi/mit-scheme-ffi/
 /imail/mit-scheme-imail/
 /ref-manual/mit-scheme-ref/
 /sos/mit-scheme-sos/

diff --git a/src/TAGS b/src/TAGS
index 6018ec20be799ab9410c6c5371cc781fd1f52504..e0668593b9f1c08e4c01a0e000c0644f769bdb34 100644 (file)
--- a/src/TAGS
+++ b/src/TAGS
@@ -14,3 +14,5 @@ sf/TAGS,include
 cref/TAGS,include
 \f
 rcs/TAGS,include
+\f
+ffi/TAGS,include

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index d18c1fb0a37ca7a5e837a36ac2411ba2ae6a1141..c539bfc83faa47450ee65417e98b2aae9b065aea 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -283,13 +283,6 @@ USA.
 (define (allow-preempt-current-thread)
   (set-thread/execution-state! (current-thread) 'RUNNING))
 
-(define (without-timer-interrupts thunk)
-  (let* ((old-mask
-         ((ucode-primitive disable-interrupts! 1) interrupt-bit/timer))
-        (value (thunk)))
-    (set-interrupt-enables! old-mask)
-    value))
-
 (define (thread-timer-interrupt-handler)
   (set! next-scheduled-timeout #f)
   (set-interrupt-enables! interrupt-mask/gc-ok)