From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 29 Jul 2009 21:10:23 +0000 (-0700)
Subject: Update doc/.gitignore, src/TAGS.  Punt without-timer-interrupts.
X-Git-Tag: 20100708-Gtk~36^2^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f42f5870e6dedc18183a44be6ed88ba10d3e2dfa;p=mit-scheme.git

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

diff --git a/doc/.gitignore b/doc/.gitignore
index a9438799a..47ce4cee4 100644
--- 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 6018ec20b..e0668593b 100644
--- a/src/TAGS
+++ b/src/TAGS
@@ -14,3 +14,5 @@ sf/TAGS,include
 cref/TAGS,include
 
 rcs/TAGS,include
+
+ffi/TAGS,include
diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index d18c1fb0a..c539bfc83 100644
--- 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)