From 88fd0dc32c03210a41706132035cdcb7581fa1c5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Erik=20Sved=C3=A4ng?= Date: Fri, 24 Nov 2017 17:17:49 +0100 Subject: [PATCH] Adding an interface for '/='. --- core/Interfaces.carp | 6 +++++- test/vector2.carp | 2 +- test/vector3.carp | 2 +- test/vectorn.carp | 2 +- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/core/Interfaces.carp b/core/Interfaces.carp index e3904147..c2425942 100644 --- a/core/Interfaces.carp +++ b/core/Interfaces.carp @@ -1,2 +1,6 @@ (definterface = (λ [a a] Bool)) -;;(definterface copy (λ [&a] a)) ;; This is defined internally now! Don't override it. +(definterface /= (λ [a a] Bool)) + +;; These interfaces are defined internally, don't override them: +;;(definterface copy (λ [&a] a)) +;;(definterface str (λ [a] String)) diff --git a/test/vector2.carp b/test/vector2.carp index ef792612..b9ec4640 100644 --- a/test/vector2.carp +++ b/test/vector2.carp @@ -16,7 +16,7 @@ (assert-equal test &(init 1.0 2.0) &(init 1.0 1.0) "/= operator works" - /= + Vector2./= Vector2.str) (assert-equal test &(init 3.0 3.0) diff --git a/test/vector3.carp b/test/vector3.carp index af480a5f..7f9e547f 100644 --- a/test/vector3.carp +++ b/test/vector3.carp @@ -16,7 +16,7 @@ (assert-equal test &(init 1.0 2.0 3.0) &(init 1.0 1.0 3.0) "/= operator works" - /= + Vector3./= Vector3.str) (assert-equal test &(init 3.0 3.0 4.5) diff --git a/test/vectorn.carp b/test/vectorn.carp index 241610b3..8e97ba00 100644 --- a/test/vectorn.carp +++ b/test/vectorn.carp @@ -16,7 +16,7 @@ (assert-equal test &(init 4 [1.0 2.0 3.0 4.0]) &(init 4 [1.0 1.0 3.0 4.0]) "/= operator works" - /= + VectorN./= VectorN.str) (assert-equal test &(init 3 [3.0 3.0 4.5])