From 774e009056002eddede779cb7946c1a25e982758 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 5 Apr 2016 23:51:42 -0400 Subject: [PATCH] Fixed (quotient) to truncate result --- scheme/base.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index b2bf3b1c..36b506da 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -1013,8 +1013,8 @@ (define (denominator n) 1) (define (numerator n) n) - ;; TODO: possibly not correct, just a placeholder - (define quotient /) + (define (quotient x y) + (truncate (/ x y))) (define truncate-quotient quotient) (define truncate-remainder remainder)