From 3d83bf0ee9ca85c5565d7f47c42b81c5f1712838 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Tue, 11 Feb 1997 21:33:50 -0800
Subject: [PATCH] builtin -> Builtin
Rev: src/module.c:1.3
Rev: src/testsuite.in:1.19
---
src/module.c | 2 +-
src/testsuite.in | 12 ++++++------
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/src/module.c b/src/module.c
index d2ed0f6ad1..6fd8d2f2f5 100644
--- a/src/module.c
+++ b/src/module.c
@@ -27,7 +27,7 @@ struct static_module
};
static struct static_module module_list[] = {
- { "builtin", init_main, exit_main }
+ { "Builtin", init_main, exit_main }
#include "modules/modlist.h"
};
diff --git a/src/testsuite.in b/src/testsuite.in
index 0337d18d41..9d53659db6 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -40,7 +40,7 @@ test_true(arrayp( _next(({})) || _prev(({}))))
test_any(object o=this_object(); while(o=_next(o)));
test_any(object o=this_object(); while(o=_prev(o)));
-test_true([["$Id: testsuite.in,v 1.18 1997/02/11 09:26:59 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.19 1997/02/12 05:33:50 hubbe Exp $"]])
test_any([[object(Stdio.File) o=Stdio.File(); return objectp(o);]],1)
test_any([[object o=Regexp("foo"); return objectp(o);]],1)
test_any([[object o=Regexp("foo"); return object_program(o);]],Regexp)
@@ -115,8 +115,8 @@ cond([[all_constants()->thread_create]],
test_do(thread_create(lambda() { }))
// /precompiled/mutex
- test_true(Mutex())
- test_do(add_constant("_tmp_mutex",Mutex()))
+ test_true(Builtin.mutex())
+ test_do(add_constant("_tmp_mutex",Builtin.mutex()))
test_true(_tmp_mutex->lock())
test_true(_tmp_mutex->lock())
test_true(_tmp_mutex->trylock())
@@ -124,9 +124,9 @@ cond([[all_constants()->thread_create]],
test_do(add_constant("_tmp_mutex"))
// /precompiled/condition
- test_true(Condition())
- test_do(Condition()->signal())
- test_do(Condition()->broadcast())
+ test_true(Builtin.condition())
+ test_do(Builtin.condition()->signal())
+ test_do(Builtin.condition()->broadcast())
// /precompiled/fifo
test_any([[
--
GitLab