Ticket #655: 0001-Default-code-for-exit.patch

File 0001-Default-code-for-exit.patch, 812 bytes (added by Mario Domenech Goulart, 13 years ago)

  • library.scm 

    From 336631984e24137b1558b54379845930116616ad Mon Sep 17 00:00:00 2001
From: Mario Domenech Goulart <mario.goulart@gmail.com>
Date: Mon, 18 Jul 2011 10:25:47 -0300
Subject: [PATCH] Default code for `exit'

Fixes build issue introduced by 4e8ef70c5edeb6d4d0d81923842a57300bab253c
---
 library.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/library.scm b/library.scm
index a5897f4..ddce432 100644
    a b EOF 
    145145
    146146;;; System routines:
    147147
    148 (define (exit #!optional code) ((##sys#exit-handler) code))
     148(define (exit #!optional (code 0)) ((##sys#exit-handler) code))
    149149(define (reset) ((##sys#reset-handler)))
    150150(define (##sys#quit-hook result) ((##sys#reset-handler)))
    151151(define (quit #!optional result) (##sys#quit-hook result))