# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1458826033 -3600
# Node ID abae592de30a291d28750cb5cfd3802b62dca843
# Parent  511fb00c40d09262bce285c18b79073e27d82c24
#OTHER
class: ByteCodeCompiler
changed: #compile:forClass:inCategory:notifying:install:skipIfSame:silent:foldConstants:ifFail:
care for source being a stream already

diff -r 511fb00c40d0 -r abae592de30a ByteCodeCompiler.st
--- a/ByteCodeCompiler.st	Thu Mar 24 01:30:47 2016 +0100
+++ b/ByteCodeCompiler.st	Thu Mar 24 14:27:13 2016 +0100
@@ -3062,7 +3062,11 @@
         ] do:[
             "create a compiler, let it parse and create the parsetree"
 
-            self source:(ReadStream on:sourceCodeString string).
+            sourceCodeString isString ifTrue:[
+                self source:(ReadStream on:sourceCodeString string).
+            ] ifFalse:[
+                self source:sourceCodeString readStream
+            ].    
             self nextToken.
 
             self setClassToCompileFor:aClass.