diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2007-05-09 20:18:31 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2007-05-09 20:18:31 +0000 |
| commit | a7db5522438192dca928b2db715741b1599d557a (patch) | |
| tree | cf279af404e847441ec2be6b48d999f1413a2561 /srfi/srfi-19.scm | |
| parent | 608860a5b3ef05951f11702edf79dcf281c55720 (diff) | |
| download | guile-a7db5522438192dca928b2db715741b1599d557a.tar.gz | |
Changes from arch/CVS synchronization
Diffstat (limited to 'srfi/srfi-19.scm')
| -rw-r--r-- | srfi/srfi-19.scm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm index 1b71a16bd..94b568533 100644 --- a/srfi/srfi-19.scm +++ b/srfi/srfi-19.scm @@ -350,14 +350,6 @@ (let ((run-time (get-internal-run-time))) (make-time time-process - (quotient run-time internal-time-units-per-second) - (* (remainder run-time internal-time-units-per-second) - priv:ns-per-guile-tick)))) - -(define (priv:current-time-process) - (let ((run-time (get-internal-run-time))) - (list - 'time-process (* (remainder run-time internal-time-units-per-second) priv:ns-per-guile-tick) (quotient run-time internal-time-units-per-second)))) |