Commit 6eb2460a authored by Erick's avatar Erick

NOP

parent 7f2b0662
;;;;
;;;; 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
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; 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>
doc>
|#
(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)))
(define (printf fmt . args)
(apply format #t fmt args))
(display (apply format 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 @@
*
* 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
......@@ -16,7 +16,7 @@
*
* Author: Erick Gallesio [eg@kaolin.unice.fr]
* 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>
......@@ -1088,6 +1088,14 @@ DEFINE_PRIMITIVE("hostname", hostname, subr0, (void))
}
DEFINE_PRIMITIVE("pause", pause, subr0, (void))
{
pause();
return STk_void;
}
/*
* Undocumented primitives
*
......@@ -1183,6 +1191,7 @@ int STk_init_system(void)
ADD_PRIMITIVE(winify_filename);
ADD_PRIMITIVE(posixify_filename);
ADD_PRIMITIVE(pause);
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