Commit 6eb2460a authored by Erick's avatar Erick

NOP

parent 7f2b0662
;;;; ;;;;
;;;; bonus.stk -- Useful primitives not in R5RS ;;;; bonus.stk -- Useful primitives not in R5RS
;;;; ;;;;
;;;; Copyright © 2000-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;;; Copyright © 2000-2009 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; ;;;;
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
...@@ -21,7 +21,7 @@ ...@@ -21,7 +21,7 @@
;;;; ;;;;
;;;; Author: Erick Gallesio [eg@unice.fr] ;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 14-Jun-2000 17:24 (eg) ;;;; Creation date: 14-Jun-2000 17:24 (eg)
;;;; Last file update: 22-Sep-2008 14:20 (eg) ;;;; Last file update: 3-Jan-2009 23:29 (eg)
;;;; ;;;;
;; ;;
...@@ -998,14 +998,14 @@ doc> ...@@ -998,14 +998,14 @@ doc>
doc> doc>
|# |#
(define (eprintf fmt . args) (define (eprintf fmt . args)
(apply format (current-error-port) fmt args) (display (apply format fmt args) (current-error-port))
(flush-output-port (current-error-port))) (flush-output-port (current-error-port)))
(define (printf fmt . args) (define (printf fmt . args)
(apply format #t fmt args)) (display (apply format fmt args)))
(define (fprintf port fmt . args) (define (fprintf port fmt . args)
(apply format port fmt args)) (display (apply format fmt args) port))
#| #|
......
This diff is collapsed.
This diff is collapsed.
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
* *
* s y s t e m . c -- System relative primitives * s y s t e m . c -- System relative primitives
* *
* Copyright 1994-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> * Copyright 1994-2009 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
* *
* *
* Permission to use, copy, modify, distribute,and license this * Permission to use, copy, modify, distribute,and license this
...@@ -16,7 +16,7 @@ ...@@ -16,7 +16,7 @@
* *
* Author: Erick Gallesio [eg@kaolin.unice.fr] * Author: Erick Gallesio [eg@kaolin.unice.fr]
* Creation date: 29-Mar-1994 10:57 * Creation date: 29-Mar-1994 10:57
* Last file update: 19-Nov-2007 11:19 (eg) * Last file update: 14-Jan-2009 11:26 (eg)
*/ */
#include <unistd.h> #include <unistd.h>
...@@ -1088,6 +1088,14 @@ DEFINE_PRIMITIVE("hostname", hostname, subr0, (void)) ...@@ -1088,6 +1088,14 @@ DEFINE_PRIMITIVE("hostname", hostname, subr0, (void))
} }
DEFINE_PRIMITIVE("pause", pause, subr0, (void))
{
pause();
return STk_void;
}
/* /*
* Undocumented primitives * Undocumented primitives
* *
...@@ -1183,6 +1191,7 @@ int STk_init_system(void) ...@@ -1183,6 +1191,7 @@ int STk_init_system(void)
ADD_PRIMITIVE(winify_filename); ADD_PRIMITIVE(winify_filename);
ADD_PRIMITIVE(posixify_filename); ADD_PRIMITIVE(posixify_filename);
ADD_PRIMITIVE(pause);
return TRUE; return TRUE;
} }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment