From 3210bf5b76de5847b390d0f23b6637efbee5aaf9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 4 Apr 2000 16:50:43 +0000
Subject: [PATCH] Define INSERT.

---
 v7/src/edwin/simple.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/simple.scm b/v7/src/edwin/simple.scm
index 1068e599a..df233c37e 100644
--- a/v7/src/edwin/simple.scm
+++ b/v7/src/edwin/simple.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: simple.scm,v 1.49 2000/02/25 17:46:30 cph Exp $
+;;; $Id: simple.scm,v 1.50 2000/04/04 16:50:43 cph Exp $
 ;;;
 ;;; Copyright (c) 1985, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -81,6 +81,10 @@
 	  (editor-error "Attempt to delete past end of buffer")
 	  (group-delete-right-char! group index)))))
 
+(define (insert object #!optional point)
+  (insert-string (write-to-string object)
+		 (if (default-object? point) (current-point) point)))
+
 (define (insert-string string #!optional point)
   (let ((point (if (default-object? point) (current-point) point)))
     (group-insert-string! (mark-group point) (mark-index point) string)))
-- 
2.25.1